<div dir="ltr">Obrigado Walmes.<div><br></div><div>Esqueci de anexar o arquivo com a base de dados para rodar o script. Acabo de anexar nessa mensagem.</div><div>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.</div><div><br></div><div>Mais uma vez, agradeço pela ajuda!</div><div><br></div><div>rm(list = ls())</div><div>setwd('C:\\Users\\Yury\\Desktop\\Mestrado\\1_TESE\\Model_Data\\Maize\\ENSEMBLE\\Simulacoes\\PA\\50')</div><div><br></div><div>a = read.table('sdesiderio.txt', header = T, sep = '\t')</div><div>media = matrix(NA, nrow = 36, ncol = 4)</div><div>colnames(media) = c('Desv.Pad', 'Media', 'M.mais', 'M.menos')</div><div><br></div><div>for(i in 1:36){</div><div>  d = sd(a[i,1:(ncol(a)-1)])</div><div>  media[i,1] = d</div><div>  m = rowMeans(a, na.rm = T, dims = 1)</div><div>  media[i,2] = m[i]</div><div>  media[i,3] = media[i,2]+media[i,1]</div><div>  media[i,4] = media[i,2]-media[i,1]</div><div>  ifelse(media[i,]<0, 0, media[i,])</div><div>}</div><div><br></div><div>a.box = t(a)</div><div>colnames(a.box) = c('J1','J2','J3','F1','F2','F3','M1','M2','M3','A1','A2','A3','M1','M2','M3',</div><div>                    'J1','J2','J3','J1','J2','J3','A1','A2','A3','S1','S2','S3','O1','O2','O3',</div><div>                    'N1','N2','N3','D1','D2','D3')</div><div><br></div><div>png("grafico-b1.png", width = 1200, height = 900, res = 196)</div><div>b1 = boxplot(a.box, las = 1, xlab = 'Semeadura', ylab = 'kg/ha', cex=0.5, pch=16)</div><div>title('Variação de Ya de acordo com a data de semeadura')</div><div>dev.off() </div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div>Yury Duarte<br></div>Engenheiro Agrônomo - ESALQ/USP<br></div></div></div>
<br><div class="gmail_quote">Em 10 de julho de 2017 10:57, Walmes Zeviani <span dir="ltr"><<a href="mailto:walmeszeviani@gmail.com" target="_blank">walmeszeviani@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Prezado,<br><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">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.<br><span style="font-family:monospace,monospace"><br># Conjunto de dados interno do R.<br>str(iris)<br><br>pdf("grafico1.pdf", width = 7, height = 6)<br>boxplot(Sepal.Length ~ Species, data = iris)<br>dev.off()<br><br>png("grafico2.png", width = 1200, height = 900, res = 196)<br>boxplot(Sepal.Length ~ Species, data = iris)<br>dev.off()</span><br><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div>​</div>
</blockquote></div><br></div>