[R-br] Panel xyplot Lattice

[Fernando Souza]

​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/
==========================================
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20171204/2b0a6bec/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: perfilTrat2.png
Tipo: image/png
Tamanho: 31641 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20171204/2b0a6bec/attachment.png>