[R-br] plotar gráfico de dispersão com três variáveis

Emmanuel Arnhold emmanuelarnhold em yahoo.com.br
Sexta Abril 29 08:38:49 BRT 2011


Dá uma olhada nos seguintes exemplos. 
 
x=c(1,2,3,4,5)
x
 
y=c(4,5,7,8,11)
y
 
z=c(4,9,14,17,21)
z
 
h=c(4,8,9,11,10)
h
 
 
# Gráfico 1
plot(x,y, xlim=c(0,8), ylim=c(0,27), col='red', xlab='Tempo', ylab='Peso')
points(x,z, pch=2, col='dark blue')
points(x,h, pch=3, col= 'dark green')
legend(5.5,26, c('Tratamento A ', 'Tratamento B ', 'Tratamento C '), col=c('red', 'dark blue', 'dark green'), pch=c(1,2,3))
 
 
# Gráfico 2
plot(x,y, xlim=c(0,8), ylim=c(0,27), xlab='Tempo', ylab='Peso', type='o')
points(x,z, pch=2, type='o')
points(x,h, pch=3, type='o')
legend(5.5,26, c('Tratamento A ', 'Tratamento B ', 'Tratamento C '), pch=c(1,2,3))
 
 
 
 
 
# Gráfico 3
plot(x,y, xlim=c(0,8), ylim=c(0,27), col='red', xlab='Tempo', ylab='Peso', type='o',  col.lab=2, col.axis='light green', font=2, lwd=4, main='Gráfico 3', col.main=5, sub='Subtítulo', col.sub='grey')
points(x,z, pch=2, col='dark blue', type='o', lwd=4)
points(x,h, pch=3, col= 'dark green', type='o', lwd=8)
legend(5.5,26, c('Tratamento A ', 'Tratamento B ', 'Tratamento C '), col=c('red', 'dark blue', 'dark green'), pch=c(1,2,3))
 
 
 
# Gráfico 4
plot(x,y, xlim=c(0,8), ylim=c(0,27), col='red', xlab='Tempo', ylab='Peso', type='o', col.lab=2, col.axis='light green', font=2, lwd=4, main='Gráfico 3', col.main=5, sub='Subtítulo', col.sub='grey', lty=1)
points(x,z, pch=2, col='dark blue', type='o', lwd=4, lty=10)
points(x,h, pch=3, col= 'dark green', type='o', lwd=8, lty=3)
legend(5.5,26, c('Tratamento A ', 'Tratamento B ', 'Tratamento C '), col=c('red', 'dark blue', 'dark green'), pch=c(1,2,3))
 
 
r = function(x) {1.9+1.7*x} 
r1= function(x) { 0.4+4.2*x} 
r2= function(x) { 3.9+1.5*x} 
 
 
 
 
 
# Gráfico 5 (plot dos pontos e das equações, com duas legendas)
plot(x,y, xlim=c(0,8), ylim=c(0,27), xlab='Tempo', ylab='Peso', bty="l")
plot(r, 0.5,5, lty=4, add=T)
plot(r1, 0.5, 5, add=T, lty=1)
plot(r2, 0.5, 5, add=T, lty=2)
points(x,z, pch=2)
points(x,h, pch=3)
legend(5.5,18, c('Tratamento A ', 'Tratamento B ', 'Tratamento C '), pch=c(1,2,3))
legend("topright", c('Tratamento A ', 'Tratamento B ', 'Tratamento C '), lty = c(4,1,2))


--- Em qui, 28/4/11, Rodrigo Plei <rodrigo.plei em gmail.com> escreveu:


De: Rodrigo Plei <rodrigo.plei em gmail.com>
Assunto: [R-br] plotar gráfico de dispersão com três variáveis
Para: r-br em listas.c3sl.ufpr.br
Data: Quinta-feira, 28 de Abril de 2011, 21:42


Prezados,


Como fazer para plotar um gráfico de dispersão mostrando três variáveis no mesmo gráfico?


Tenho dados de profundidade, temperatura e salinidade.


Gostaria que:


1) no eixo X inferior, ficasse plotado a relação profundidade~temperatura


2) no eixo X superior, icasse plotado a relação profundidade~salinidade


O eixo Y seria o da profundidade.


Alguma idéia?


Agradeço desde logo,


Rodrigo





Em 28 de abril de 2011 18:36, Walmes Zeviani <walmeszeviani em gmail.com> escreveu:

Pessoal,

Vejam o cartão de referência do R (no google: R reference card). Ele tem todas essas opções de operadores lógicos, de datas, de horas, de importação, parâmetros gráficos, distribuição de probabilidades, etc. Vale a pena ter ele salvo no navegador ou impresso na gaveta mais próxima.

À disposição.
Walmes.

==========================================================================
Walmes Marques Zeviani
LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
Departamento de Estatística - Universidade Federal do Paraná
fone: (+55) 41 3361 3573
VoIP: (3361 3600) 1053 1173
e-mail: walmes em ufpr.br
twitter: @walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
==========================================================================

_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br




-- 
=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->

Rodrigo Silvestre Martins, PhD
Bolsista FAPESP Pós-Doutorado

Laboratório de Ecossistemas Pesqueiros (LabPesq)
Universidade de São Paulo, Instituto Oceanográfico
Praça do Oceanográfico, 191. Cidade Universitaria (sala 107-A/B)
Butantã - São Paulo/SP, Brasil
05508-900
Tel: +55 11 3091 6549
Email: rodrigo.plei em gmail.com ; ocersm em lycos.com; rsmartins em usp.br

CV Lattes: http://lattes.cnpq.br/5350064124902777










-----Anexo incorporado-----


_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110429/1bd4afdc/attachment.html>


Mais detalhes sobre a lista de discussão R-br