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
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
Livre de vírus. www.avast.com
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>.
_______________________________________________
R-br mailing list
[email protected]
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
[email protected]
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.
