[R-br] Panel xyplot Lattice

Cesar Rabak cesar.rabak em gmail.com
Segunda Dezembro 4 22:36:50 -02 2017


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 em 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 em gmail.com <e-mail%3Anandodesouza em gmail.com>
> Lattes: http://lattes.cnpq.br/6519538815038307
> Blog: https://producaoanimalcomr.wordpress.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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20171204/6879239a/attachment.html>


Mais detalhes sobre a lista de discussão R-br