<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("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">https://www.dropbox.com/s/b4cckybgrcg86me/galinhas.csv?raw=1</a>",head = TRUE)<br>head(DADOS.CURTO)<br>colnames(DADOS.CURTO) <- c("0","1","2","3","4","5","6","TRAT")<br>DADOS<- DADOS.CURTO %>% gather('0','1','2','3','4','5','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(ID))<br clear="all"><div><div><div><div><div><br></div><div>cores = grDevices::colors()[grep('gr(a|e)y', grDevices::colors(), invert = T)]<br><br>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]))<br></div><div><br></div><div> 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")<br>-- <br><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><span>=========================================<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/6519538815038307</a><br>
Blog: <a href="https://producaoanimalcomr.wordpress.com/" target="_blank">https://producaoanimalcomr.wordpress.com/</a><br>
==========================================</span></div></div></div></div></div></div></div></div></div></div>
</div></div></div></div></div></div>