[R-br] Ajuda com BoxPlot

[Yury Duarte]

Obrigado Leonard e Walmes!

Consegui utilizar as dicas e comandos sugeridos para salvar as imagens.
Muito Obrigado!

Att

Yury Duarte
Engenheiro Agrônomo - ESALQ/USP

Em 10 de julho de 2017 11:59, Leonard Assis via R-br <
r-br em listas.c3sl.ufpr.br> escreveu:

> Execute normalmente, sem o png(...) É sem o dev.off()
> Observe o que acontece.
>
> Acredito que você verá, com isto, o que está acontecendo de errado.
>
> Leonard
>
> Em 10 de jul de 2017 11:17 AM, "Yury Duarte via R-br" <
> r-br em listas.c3sl.ufpr.br> escreveu:
>
>> Obrigado Walmes.
>>
>> Esqueci de anexar o arquivo com a base de dados para rodar o script.
>> Acabo de anexar nessa mensagem.
>> Tentei reproduzir o passo para salvar o arquivo em formato png, mas em
>> todos os testes o arquivo saia em branco, com a informação de que é
>> impossível de ser reproduzida a imagem.
>>
>> Mais uma vez, agradeço pela ajuda!
>>
>> rm(list = ls())
>> setwd('C:\\Users\\Yury\\Desktop\\Mestrado\\1_TESE\\Model_
>> Data\\Maize\\ENSEMBLE\\Simulacoes\\PA\\50')
>>
>> a = read.table('sdesiderio.txt', header = T, sep = '\t')
>> media = matrix(NA, nrow = 36, ncol = 4)
>> colnames(media) = c('Desv.Pad', 'Media', 'M.mais', 'M.menos')
>>
>> for(i in 1:36){
>>   d = sd(a[i,1:(ncol(a)-1)])
>>   media[i,1] = d
>>   m = rowMeans(a, na.rm = T, dims = 1)
>>   media[i,2] = m[i]
>>   media[i,3] = media[i,2]+media[i,1]
>>   media[i,4] = media[i,2]-media[i,1]
>>   ifelse(media[i,]<0, 0, media[i,])
>> }
>>
>> a.box = t(a)
>> colnames(a.box) = c('J1','J2','J3','F1','F2','F3
>> ','M1','M2','M3','A1','A2','A3','M1','M2','M3',
>>                     'J1','J2','J3','J1','J2','J3',
>> 'A1','A2','A3','S1','S2','S3','O1','O2','O3',
>>                     'N1','N2','N3','D1','D2','D3')
>>
>> png("grafico-b1.png", width = 1200, height = 900, res = 196)
>> b1 = boxplot(a.box, las = 1, xlab = 'Semeadura', ylab = 'kg/ha', cex=0.5,
>> pch=16)
>> title('Variação de Ya de acordo com a data de semeadura')
>> dev.off()
>>
>> Yury Duarte
>> Engenheiro Agrônomo - ESALQ/USP
>>
>> Em 10 de julho de 2017 10:57, Walmes Zeviani <walmeszeviani em gmail.com>
>> escreveu:
>>
>>> Prezado,
>>>
>>> O seu exemplo não é reproduzível. Todavia, se entendi corretamente sua
>>> dúvida, o código abaixo indica como usar as funções pdf() e png() para
>>> salvar os gráficos na dimensão que você desejar.
>>>
>>> # Conjunto de dados interno do R.
>>> str(iris)
>>>
>>> pdf("grafico1.pdf", width = 7, height = 6)
>>> boxplot(Sepal.Length ~ Species, data = iris)
>>> dev.off()
>>>
>>> png("grafico2.png", width = 1200, height = 900, res = 196)
>>> boxplot(Sepal.Length ~ Species, data = iris)
>>> dev.off()
>>>
>>> À disposição.
>>> Walmes.
>>> ​
>>>
>>
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em 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 em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170711/1c3c2dfb/attachment.html>