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:nandodeso...@gmail.com <e-mail%3anandodeso...@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. >
_______________________________________________ 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.