subject:"Re\: \[R\-br\] Panel xyplot Lattice"

Re: [R-br] Panel xyplot Lattice

2017-12-05 Por tôpico Cesar Rabak via R-br

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 :

> 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"  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 
>>> 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.

Re: [R-br] Panel xyplot Lattice

2017-12-04 Por tôpico Fernando Souza via R-br

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"  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 
>> 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.

Re: [R-br] Panel xyplot Lattice

2017-12-04 Por tôpico Cesar Rabak via R-br

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 
> 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.

Re: [R-br] Panel xyplot Lattice

Re: [R-br] Panel xyplot Lattice

Re: [R-br] Panel xyplot Lattice

3 matches

Site Navigation

Mail list logo

Footer information