Multiplots usando lattice
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ásEstagiá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.
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-win... 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 R-br@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.
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@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-win... 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@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@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.
Marcos, Tentou adicionar o argumento more=T nas instruções print de de g2 e g3? ================================================ Éder Comunello Agronomist (UEM), MSc in Environ. Sciences (UEM) DSc in Agricultural Systems Engineering (USP/Esalq) Brazilian Agricultural Research Corporation (Embrapa) Dourados, MS, Brazil |<O>| ================================================ GEO, -22.2752, -54.8182, 408m UTC-04:00 / DST: UTC-03:00 Em 12 de maio de 2016 23:14, marcos paulo <marcospaulo_agronomo@hotmail.com> 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 ZootecniaBacharel 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>. <#m_2740539342992165564_DDB4FAA8-2DD7-40BB-A1B8-4E2AA1F9FDF2>
_______________________________________________ R-br mailing list R-br@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.
Não sei se vai funcionar no lattice.Use: par(mfrow=c(2,2)) Edson Lira Estatístico Manaus-Amazonas Em Sexta-feira, 13 de Maio de 2016 9:33, Éder Comunello <comunello.eder@gmail.com> escreveu: Marcos, Tentou adicionar o argumento more=T nas instruções print de de g2 e g3? ================================================ Éder ComunelloAgronomist (UEM), MSc in Environ. Sciences (UEM) DSc in Agricultural Systems Engineering (USP/Esalq) Brazilian Agricultural Research Corporation (Embrapa)Dourados, MS, Brazil |<O>|================================================ GEO, -22.2752, -54.8182, 408m UTC-04:00 / DST: UTC-03:00 Em 12 de maio de 2016 23:14, marcos paulo <marcospaulo_agronomo@hotmail.com> 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ásEstagiá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@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@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.
participantes (5)
-
Edson Lira -
marcos paulo -
salah -
Thiago V. dos Santos -
Éder Comunello