Como salvar um gráfico como imagem no disco?

Eu planto uma regressão linear simples usando R. Eu gostaria de salvar essa imagem como PNG ou JPEG, é possível fazê-lo automaticamente? (via código)

Há duas perguntas diferentes: Primeiro, eu já estou vendo o gráfico no meu monitor e gostaria de salvá-lo como está. Segundo, ainda não gerei o gráfico, mas gostaria de salvá-lo diretamente em disco ao executar meu código de plotagem.

Existem duas perguntas estreitamente relacionadas e uma resposta para cada uma.

1. Uma imagem será gerada no futuro no meu script, como eu a salvo em disco?

Para salvar uma plotagem, faça o seguinte:

1. Abrir um dispositivo, usando png(), bmp(), pdf()ou semelhante
2. Traçar seu modelo
3. Feche o dispositivo usando dev.off()

Alguns exemplos de código para salvar a plotagem em um pngarquivo:

fit <- lm(some ~ model)

png(filename="your/file/location/name.png")
plot(fit)
dev.off()

Isto é descrito na página de ajuda (combinados) para os formatos gráficos ?png, ?bmp, ?jpege ?tiff, bem como na página de ajuda separado para ?pdf.

Observe, no entanto, que a imagem pode parecer diferente no disco para o mesmo gráfico plotado diretamente na tela, por exemplo, se você redimensionou a janela na tela.

Observe que, se o seu plot for feito por um latticeou ggplot2você tiver que imprimi-lo explicitamente. Veja esta resposta que explica isso com mais detalhes e também links para a FAQ R: O qplot do ggplot não é executado na fonte

2. Atualmente, estou vendo um gráfico na minha tela e quero copiá-lo 'como está' para o disco.

dev.print(pdf, 'filename.pdf')

Isso deve copiar a imagem perfeitamente, respeitando qualquer redimensionamento que você tenha feito na janela interativa. Você pode, como na primeira parte desta resposta, substituir pdfpor outros tipos de arquivos como png.

Se você quiser continuar vendo a plotagem em R, outra opção é usar dev.copy:

X11 ()
plot (x,y)

dev.copy(jpeg,filename="plot.jpg");
dev.off ();

Se você encontrar muitas janelas de plotagem em R, use graphics.off()para fechar todas as janelas de plotagem.

Se você usar ggplot2a maneira preferida de economizar é usar ggsave. Primeiro você precisa plotar, depois de criar o gráfico que você chama ggsave:

ggplot(...)
ggsave("plot.png")

O formato da imagem é determinado pela extensão que você escolher para o nome do arquivo. Os parâmetros adicionais podem ser passados para ggsave, nomeadamente width, heighte dpi.

Como isso

png('filename.png')
# make plot
dev.off()

ou isto

# sometimes plots do better in vector graphics
svg('filename.svg')
# make plot
dev.off()

ou isto

pdf('filename.pdf')
# make plot
dev.off()

E provavelmente outros também. Eles estão todos listados juntos nas páginas de ajuda.

Para a primeira pergunta, acho dev.printo melhor ao trabalhar interativamente. Primeiro, você configura sua plotagem visualmente e, quando estiver satisfeito com o que vê, pode pedir ao R para salvar a plotagem atual em disco.

dev.print(pdf, file="filename.pdf");

Você pode substituir pdfpor outros formatos, comopng .

Isso copiará a imagem exatamente como você a vê na tela. O problema comdev.copy é que a imagem geralmente é diferente e não se lembra do tamanho da janela e da proporção - ela força o gráfico a ficar quadrado por padrão.

Para a segunda pergunta (como outras pessoas já responderam), você deve direcionar a saída para o disco antes de executar seus comandos de plotagem

pdf('filename.pdf')
plot( yourdata )
points (some_more_data)
dev.off() # to complete the writing process and return output to your monitor

Se você usa o R Studio http://rstudio.org/, existe um menu especial para salvar sua plotagem no formato que desejar e em qualquer resolução que você escolher

Se você abrir um dispositivo usando png(), bmp(), pdf()etc., como sugerido por Andrie (a melhor resposta), as janelas com parcelas não vai aparecer aberta, apenas * .png, * bmp ou arquivos * .pdf será criado. Isso é conveniente em cálculos massivos, já que o R pode lidar apenas com um número limitado de janelas gráficas.

No entanto, se você quiser ver os gráficos e também salvá-los, ligue savePlot(filename, type)depois que os gráficos forem desenhados e a janela que os contiver estiver ativa.

plotpath<- file.path(path, "PLOT_name",paste("plot_",file,".png",sep=""))

png(filename=plotpath)

plot(x,y, main= file)

dev.off()

Para adicionar essas respostas, se você tiver um script R contendo chamadas que geram plotagens para a tela (o dispositivo nativo), todas elas podem ser salvas em um arquivo pdf (o dispositivo padrão para um shell não interativo) "Rplots.pdf "(o nome padrão) redirecionando o script para R a partir do terminal (supondo que você esteja executando o Linux ou OS X), por exemplo:

R < myscript.R --no-save

Isso pode ser convertido em jpg / png, conforme necessário

Em alguns casos, deseja-se salvar e imprimir um gráfico de base r. Passei um pouco de tempo e criei esta função de utilitário:

x = 1:10

basesave = function(expr, filename, print=T) {
  #extension
  exten = stringr::str_match(filename, "\\.(\\w+)$")[, 2]

  switch(exten,
         png = {
           png(filename)
           eval(expr, envir = parent.frame())
           dev.off()
         },
         {stop("filetype not recognized")})


  #print?
  if (print) eval(expr, envir = parent.frame())

  invisible(NULL)
}

#plots, but doesn't save
plot(x)

#saves, but doesn't plot
png("test.png")
plot(x)
dev.off()

#both
basesave(quote(plot(x)), "test.png")

#works with pipe too
quote(plot(x)) %>% basesave("test.png")

Observe que é preciso usar quote, caso contrário, a plot(x)chamada é executada no ambiente global e NULLé passada para basesave().

dev.copy(png,'path/pngFile.png')
plot(YData ~ XData, data = mydata)
dev.off()