Fernando, Como já escrevi, não é o que eu vejo na figura que você mesmo enviou ou na gerada no meu ambiente usando seu script:
O nome da variável no eixo Y está rente à borda da figura, e na direita os tick marks estão perto da borda mas não tanto que um cropping manual não fosse suficiente. A menos que haja alguma anomalia (anexar a imagem via google faça algum tipo de autoformatação) e/ou meus defaults de apresentação de imagem no R sejam diferentes dos que vc usou não consigo perceber o quê você reporta 🤔! HTH 2017-12-04 23:07 GMT-02:00 Fernando Souza <nandodeso...@gmail.com>: > Não é isso César > > Repare q as margens da figura são bastantes largas e q a área ocupada pelo > gráfico ficou estreita. Gostaria de reduzir as margens e ampliar o gráfico > > Em 04/12/2017 22:36, "Cesar Rabak" <cesar.ra...@gmail.com> escreveu: > >> 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.