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))

De: Rodrigo Plei <rodrigo.plei@gmail.com>
Assunto: [R-br] plotar gráfico de dispersão com três variáveis
Para: r-br@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@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@ufpr.br
twitter: @walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
==========================================================================

_______________________________________________
R-br mailing list
R-br@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@gmail.com ; ocersm@lycos.com; rsmartins@usp.br

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

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

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