[R-br] Multiplots usando lattice

[Thiago V. dos Santos]

library(gridExtra)

grid.arrange(g1,g2,g3,g4, ncol=2, nrow=2)

 Greetings,
 -- Thiago V. dos Santos

PhD student
Land and Atmospheric Science
University of Minnesota


On Thursday, May 12, 2016 10:26 PM, salah <salah3.1416 em gmail.com> wrote:



Olá Marcos 

Talvez este exemplo lhe ajude

library(lattice)

# Data
w <- as.matrix(dist(Loblolly))
x <- as.matrix(dist(HairEyeColor))
y <- as.matrix(dist(rock))
z <- as.matrix(dist(women))

# Plot assignments
pw <- levelplot(w, scales = list(draw = FALSE))  # "scales..."
   removes axes
px <- levelplot(x, scales = list(draw = FALSE))
py <- levelplot(y, scales = list(draw = FALSE))
pz <- levelplot(z, scales = list(draw = FALSE))

# Plot prints
print(pw, split = c(1, 1, 2, 2), more = TRUE)
print(px, split = c(2, 1, 2, 2), more = TRUE)
print(py, split = c(1, 2, 2, 2), more = TRUE)
print(pz, split = c(2, 2, 2, 2), more = FALSE)  # more = FALSE is
   redundant

retirado de http://stackoverflow.com/questions/2540129/lattice-multiple-plots-in-one-window

saudações


Em 13/05/2016 00:14, marcos paulo escreveu:


>Pessoal estou querendo plotar 4 gráficos na mesma janela gráfica, 
>usando o pacote lattice pra confecção desses plots. Porém não estou conseguindo colocar mais que dois na mesma janela, usando a função print.
>
>
>Segue exemplo:
>
>
>g1<- xyplot(NDVI~DAE|Cultivar, data=dados, col=1, layout=c(5,1), 
>       type=c("p","r"), 
>       xlab="DAE", ylab="NDVI",
>       main='Vitrine 2014/2016',
>       strip=strip.custom(bg="gray90"))
>
>
>g2<-xyplot(NDVI~IAF|Cultivar, data=dados, col=1, layout=c(5,1), 
>       type=c("p","r"), 
>       xlab="IAF", ylab="NDVI",
>       strip=strip.custom(bg="gray90"))
>
>
>
>
>g3<-xyplot(Chl~DAE|Cultivar, data=dados, col=1, layout=c(5,1), 
>           type=c("p","r"), 
>           xlab="DAE", ylab="Clorofila",
>            strip=strip.custom(bg="gray90"))
>
>
>g4<-xyplot(Chl~IAF|Cultivar, data=dados, col=1, layout=c(5,1), 
>           type=c("p","r"), 
>           xlab="IAF", ylab="Clorofila",
>           strip=strip.custom(bg="gray90"))
>  
>print(g1, split=c(1,1,1,4), more=TRUE)
>print(g2, split=c(1,2,1,4))
>print(g3, split=c(1,3,1,4))
>print(g4, split=c(1,4,1,4))
>
>
>Cordialmente, Marcos Paulo.
>
>Técnico Agrícola em Zootecnia
>Bacharel em Agronomia 
>
>
>Mestrando em Produção Vegetal - Universidade Federal de Goiás
>Estagiário de Pós-Graduação da Embrapa Arroz e Feijão/CNPAF-Santo Antônio de Goiás-GO
>
>
>Contato: (62) 85075783
>
>
>http://lattes.cnpq.br/4322347592884852
>
>
> Livre de vírus. www.avast.com. 
>
>
>_______________________________________________
R-br mailing list R-br em listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.


_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne� c�igo m�imo reproduz�el.