<div dir="ltr">Fernando,<div><br></div><div>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...</div><div><br></div><div>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 (<i>cropp</i>) dela. . .</div><div><br></div><div>HTH</div><div>--</div><div>Cesar Rabak</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Mon, Dec 4, 2017 at 8:34 PM, Fernando Souza via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div><div><br></div>​Caros colegas<br><br></div>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?</div><div><br></div><div>Segue o CMR, anexo inserir a imagem para vcs verem o problema. Como resolver?<br></div><div><br></div><div>#install.packages("tidyr")</div><div>#install.packages("lattice")</div><div>#install.packages("<wbr>RColorBrewer")<br></div><div><br></div>library(tidyr)</div><div>library(lattice)</div><div>library(RColorBrewer)</div><div><br></div>DADOS.CURTO <- read.csv("<a href="https://www.dropbox.com/s/b4cckybgrcg86me/galinhas.csv?raw=1" target="_blank">https://www.dropbox.<wbr>com/s/b4cckybgrcg86me/<wbr>galinhas.csv?raw=1</a>",head = TRUE)<br>head(DADOS.CURTO)<br>colnames(DADOS.CURTO) <- c("0","1","2","3","4","5","6",<wbr>"TRAT")<br>DADOS<- DADOS.CURTO %>% gather('0','1','2','3','4','5'<wbr>,'6',key ="SEMANA",value = "PESO", -TRAT)<br>head(DADOS)<br>str(DADOS)<br>ID <-rep(seq(1,370), times=7)<br>DADOS<-cbind(ID,DADOS)<br>DADOS <- transform(DADOS, SEMANA = as.numeric(SEMANA),ID=factor(<wbr>ID))<br clear="all"><div><div><div><div><div><br></div><div>cores = grDevices::colors()[grep('gr(<wbr>a|e)y', grDevices::colors(), invert = T)]<br><br>parset <-list(plot.symbol = list(col = "black",fill = "black"),strip.background=<wbr>list(col="lightgrey"),<wbr>superpose.line = list(col = cores[1:375]),superpose.symbol = list(col = cores[1:375]))<br></div><div><br></div><div> xyplot(PESO~SEMANA|TRAT,<wbr>groups=ID,data=DADOS,ylab = "PESO (Kg)",pch = 16,par.settings =parset ,type=c("l","p","g"),layout = c(3,1),aspect = "xy")<span class="HOEnZb"><font color="#888888"><br>-- <br><div class="m_-3416569867141911951gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><span>==============================<wbr>===========<br>
Fernando Souza<br>
Zootecnista, DSc. Produção e Alimentação Animal<br>
Celular: (31)99796-8781 (Vivo)<br>
<a href="mailto:e-mail%3Anandodesouza@gmail.com" target="_blank">E-mail:nandodesouza@gmail.com</a><br>
Lattes: <a href="http://lattes.cnpq.br/6519538815038307" target="_blank">http://lattes.cnpq.br/<wbr>6519538815038307</a><br>
Blog: <a href="https://producaoanimalcomr.wordpress.com/" target="_blank">https://producaoanimalcomr.<wbr>wordpress.com/</a><br>
==============================<wbr>============</span></div></div></div></div></div></div></div></div></div></div>
</font></span></div></div></div></div></div></div>
<br>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>