Panel xyplot Lattice

Caros colegas Criei esses gráficos utilizando o xyplot {lattice}, utilizei o argumento aspect="xy" os gráficos ficaram como eu queria, porém a relação a área da imagem eles ficaram muito pequenos, como posso reduzir essa diferença? Segue o CMR, anexo inserir a imagem para vcs verem o problema. Como resolver? #install.packages("tidyr") #install.packages("lattice") #install.packages("RColorBrewer") library(tidyr) library(lattice) library(RColorBrewer) DADOS.CURTO <- read.csv(" https://www.dropbox.com/s/b4cckybgrcg86me/galinhas.csv?raw=1",head = TRUE) head(DADOS.CURTO) colnames(DADOS.CURTO) <- c("0","1","2","3","4","5","6","TRAT") DADOS<- DADOS.CURTO %>% gather('0','1','2','3','4','5','6',key ="SEMANA",value = "PESO", -TRAT) head(DADOS) str(DADOS) ID <-rep(seq(1,370), times=7) DADOS<-cbind(ID,DADOS) DADOS <- transform(DADOS, SEMANA = as.numeric(SEMANA),ID=factor(ID)) cores = grDevices::colors()[grep('gr(a|e)y', grDevices::colors(), invert = T)] parset <-list(plot.symbol = list(col = "black",fill = "black"),strip.background=list(col="lightgrey"),superpose.line = list(col = cores[1:375]),superpose.symbol = list(col = cores[1:375])) xyplot(PESO~SEMANA|TRAT,groups=ID,data=DADOS,ylab = "PESO (Kg)",pch = 16,par.settings =parset ,type=c("l","p","g"),layout = c(3,1),aspect = "xy") -- ========================================= Fernando Souza Zootecnista, DSc. Produção e Alimentação Animal Celular: (31)99796-8781 (Vivo) E-mail:nandodesouza@gmail.com <e-mail%3Anandodesouza@gmail.com> Lattes: http://lattes.cnpq.br/6519538815038307 Blog: https://producaoanimalcomr.wordpress.com/ ==========================================

Fernando, Se você constrói uma imagem que tem que ter três quadrados na horizontal, para manter o aspecto 1:1 eles ocuparão ~ 1/3 da largura da imagem... não vejo como isso pode ser um problema... Se você deseja que ocupem melhor sua página no seu relatório, copie e cole a imagem numa página "paisagem" e faça o ajuste da figura (*cropp*) dela. . . HTH -- Cesar Rabak On Mon, Dec 4, 2017 at 8:34 PM, Fernando Souza via R-br < r-br@listas.c3sl.ufpr.br> wrote:
Caros colegas
Criei esses gráficos utilizando o xyplot {lattice}, utilizei o argumento aspect="xy" os gráficos ficaram como eu queria, porém a relação a área da imagem eles ficaram muito pequenos, como posso reduzir essa diferença?
Segue o CMR, anexo inserir a imagem para vcs verem o problema. Como resolver?
#install.packages("tidyr") #install.packages("lattice") #install.packages("RColorBrewer")
library(tidyr) library(lattice) library(RColorBrewer)
DADOS.CURTO <- read.csv("https://www.dropbox.com/s/b4cckybgrcg86me/ galinhas.csv?raw=1",head = TRUE) head(DADOS.CURTO) colnames(DADOS.CURTO) <- c("0","1","2","3","4","5","6","TRAT") DADOS<- DADOS.CURTO %>% gather('0','1','2','3','4','5','6',key ="SEMANA",value = "PESO", -TRAT) head(DADOS) str(DADOS) ID <-rep(seq(1,370), times=7) DADOS<-cbind(ID,DADOS) DADOS <- transform(DADOS, SEMANA = as.numeric(SEMANA),ID=factor(ID))
cores = grDevices::colors()[grep('gr(a|e)y', grDevices::colors(), invert = T)]
parset <-list(plot.symbol = list(col = "black",fill = "black"),strip.background=list(col="lightgrey"),superpose.line = list(col = cores[1:375]),superpose.symbol = list(col = cores[1:375]))
xyplot(PESO~SEMANA|TRAT,groups=ID,data=DADOS,ylab = "PESO (Kg)",pch = 16,par.settings =parset ,type=c("l","p","g"),layout = c(3,1),aspect = "xy") -- ========================================= Fernando Souza Zootecnista, DSc. Produção e Alimentação Animal Celular: (31)99796-8781 (Vivo) E-mail:nandodesouza@gmail.com <e-mail%3Anandodesouza@gmail.com> Lattes: http://lattes.cnpq.br/6519538815038307 Blog: https://producaoanimalcomr.wordpress.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.

Não é isso César Repare q as margens da figura são bastantes largas e q a área ocupada pelo gráfico ficou estreita. Gostaria de reduzir as margens e ampliar o gráfico Em 04/12/2017 22:36, "Cesar Rabak" <cesar.rabak@gmail.com> escreveu:
Fernando,
Se você constrói uma imagem que tem que ter três quadrados na horizontal, para manter o aspecto 1:1 eles ocuparão ~ 1/3 da largura da imagem... não vejo como isso pode ser um problema...
Se você deseja que ocupem melhor sua página no seu relatório, copie e cole a imagem numa página "paisagem" e faça o ajuste da figura (*cropp*) dela. . .
HTH -- Cesar Rabak
On Mon, Dec 4, 2017 at 8:34 PM, Fernando Souza via R-br < r-br@listas.c3sl.ufpr.br> wrote:
Caros colegas
Criei esses gráficos utilizando o xyplot {lattice}, utilizei o argumento aspect="xy" os gráficos ficaram como eu queria, porém a relação a área da imagem eles ficaram muito pequenos, como posso reduzir essa diferença?
Segue o CMR, anexo inserir a imagem para vcs verem o problema. Como resolver?
#install.packages("tidyr") #install.packages("lattice") #install.packages("RColorBrewer")
library(tidyr) library(lattice) library(RColorBrewer)
DADOS.CURTO <- read.csv("https://www.dropbox. com/s/b4cckybgrcg86me/galinhas.csv?raw=1",head = TRUE) head(DADOS.CURTO) colnames(DADOS.CURTO) <- c("0","1","2","3","4","5","6","TRAT") DADOS<- DADOS.CURTO %>% gather('0','1','2','3','4','5','6',key ="SEMANA",value = "PESO", -TRAT) head(DADOS) str(DADOS) ID <-rep(seq(1,370), times=7) DADOS<-cbind(ID,DADOS) DADOS <- transform(DADOS, SEMANA = as.numeric(SEMANA),ID=factor(ID))
cores = grDevices::colors()[grep('gr(a|e)y', grDevices::colors(), invert = T)]
parset <-list(plot.symbol = list(col = "black",fill = "black"),strip.background=list(col="lightgrey"),superpose.line = list(col = cores[1:375]),superpose.symbol = list(col = cores[1:375]))
xyplot(PESO~SEMANA|TRAT,groups=ID,data=DADOS,ylab = "PESO (Kg)",pch = 16,par.settings =parset ,type=c("l","p","g"),layout = c(3,1),aspect = "xy") -- ========================================= Fernando Souza Zootecnista, DSc. Produção e Alimentação Animal Celular: (31)99796-8781 (Vivo) E-mail:nandodesouza@gmail.com <e-mail%3Anandodesouza@gmail.com> Lattes: http://lattes.cnpq.br/6519538815038307 Blog: https://producaoanimalcomr.wordpress.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.

Fernando, Como já escrevi, não é o que eu vejo na figura que você mesmo enviou ou na gerada no meu ambiente usando seu script: O nome da variável no eixo Y está rente à borda da figura, e na direita os tick marks estão perto da borda mas não tanto que um cropping manual não fosse suficiente. A menos que haja alguma anomalia (anexar a imagem via google faça algum tipo de autoformatação) e/ou meus defaults de apresentação de imagem no R sejam diferentes dos que vc usou não consigo perceber o quê você reporta 🤔! HTH 2017-12-04 23:07 GMT-02:00 Fernando Souza <nandodesouza@gmail.com>:
Não é isso César
Repare q as margens da figura são bastantes largas e q a área ocupada pelo gráfico ficou estreita. Gostaria de reduzir as margens e ampliar o gráfico
Em 04/12/2017 22:36, "Cesar Rabak" <cesar.rabak@gmail.com> escreveu:
Fernando,
Se você constrói uma imagem que tem que ter três quadrados na horizontal, para manter o aspecto 1:1 eles ocuparão ~ 1/3 da largura da imagem... não vejo como isso pode ser um problema...
Se você deseja que ocupem melhor sua página no seu relatório, copie e cole a imagem numa página "paisagem" e faça o ajuste da figura (*cropp*) dela. . .
HTH -- Cesar Rabak
On Mon, Dec 4, 2017 at 8:34 PM, Fernando Souza via R-br < r-br@listas.c3sl.ufpr.br> wrote:
Caros colegas
Criei esses gráficos utilizando o xyplot {lattice}, utilizei o argumento aspect="xy" os gráficos ficaram como eu queria, porém a relação a área da imagem eles ficaram muito pequenos, como posso reduzir essa diferença?
Segue o CMR, anexo inserir a imagem para vcs verem o problema. Como resolver?
#install.packages("tidyr") #install.packages("lattice") #install.packages("RColorBrewer")
library(tidyr) library(lattice) library(RColorBrewer)
DADOS.CURTO <- read.csv("https://www.dropbox. com/s/b4cckybgrcg86me/galinhas.csv?raw=1",head = TRUE) head(DADOS.CURTO) colnames(DADOS.CURTO) <- c("0","1","2","3","4","5","6","TRAT") DADOS<- DADOS.CURTO %>% gather('0','1','2','3','4','5','6',key ="SEMANA",value = "PESO", -TRAT) head(DADOS) str(DADOS) ID <-rep(seq(1,370), times=7) DADOS<-cbind(ID,DADOS) DADOS <- transform(DADOS, SEMANA = as.numeric(SEMANA),ID=factor(ID))
cores = grDevices::colors()[grep('gr(a|e)y', grDevices::colors(), invert = T)]
parset <-list(plot.symbol = list(col = "black",fill = "black"),strip.background=list(col="lightgrey"),superpose.line = list(col = cores[1:375]),superpose.symbol = list(col = cores[1:375]))
xyplot(PESO~SEMANA|TRAT,groups=ID,data=DADOS,ylab = "PESO (Kg)",pch = 16,par.settings =parset ,type=c("l","p","g"),layout = c(3,1),aspect = "xy") -- ========================================= Fernando Souza Zootecnista, DSc. Produção e Alimentação Animal Celular: (31)99796-8781 (Vivo) E-mail:nandodesouza@gmail.com <e-mail%3Anandodesouza@gmail.com> Lattes: http://lattes.cnpq.br/6519538815038307 Blog: https://producaoanimalcomr.wordpress.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.
participantes (2)
-
Cesar Rabak
-
Fernando Souza