Bom dia colegas listeiros, como vão? Nos últimos dias me vi com necessidade de elaborar gráficos do tipo BoxPlot pra poder representar a variabilidade da produção agrícola de cordo com a época de plantio. Não tive problemas em fazer o gráfico e visualizar ele no output do R-studio. Minha dúvida é em relação ao formato com que devo salvar a figura. Gostaria de salvar os gráficos em formato de imagem e com um tamanho pré definido, pois o default de salvamento das imagens fez com que eles ocupem toda uma pagina (quando salvei em PDF). Ao fim do email, segue parte do código que usei para gerar o BoxPlot. Desde já, agradeço pela ajuda de todos! 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') 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') Yury Duarte Engenheiro Agrônomo - ESALQ/USP
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.
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@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.
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@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@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@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.
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@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@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@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@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.
participantes (3)
-
Leonard Assis -
Walmes Zeviani -
Yury Duarte