如何将绘图保存为磁盘上的图像？

喜欢这个

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

或者这个

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

或者这个

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

可能还有其他人。它们都一起列在帮助页面中。

有两个密切相关的问题，每个问题都有一个答案。

---

1. 将来会在我的脚本中生成图像，如何将其保存到磁盘？

要保存绘图，您需要执行以下操作：

1. 使用 、 或类似方式打开设备png()bmp()pdf()
2. 绘制模型
3. 使用以下方式关闭设备dev.off()

用于将绘图保存到文件的一些示例代码：png

fit <- lm(some ~ model)

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

这在图形格式 的（组合）帮助页中进行了描述，在单独的帮助页中进行了描述。?png?bmp?jpeg?tiff?pdf

但请注意，图像在磁盘上的外观可能与直接打印到屏幕上的相同绘图不同，例如，如果您调整了屏幕窗口的大小。

---

请注意，如果您的绘图是由其中任何一个制作的，则必须显式打印该绘图。请参阅此答案，其中更详细地解释了这一点，并链接到 R 常见问题解答： ggplot 的 qplot 不会在采购时执行latticeggplot2

---

2. 我目前正在屏幕上查看绘图，我想将其“按原样”复制到磁盘。

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

这应该完美地复制图像，尊重您对交互式窗口所做的任何大小调整。您可以像本答案的第一部分一样，将其替换为其他文件类型，例如 .pdfpng

如果您使用 RStudio，则有一个特殊菜单可以将绘图保存为您喜欢的任何格式和您选择的任何分辨率。

如果你想继续在 R 中看到绘图，另一个选项是使用：dev.copy

X11 ()
plot (x,y)

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

如果在 R 中出现过多的绘图窗口，请使用关闭所有绘图窗口。graphics.off()

如果使用首选的保存方式是使用 .首先你必须绘图，在创建绘图后，你调用：ggplot2ggsaveggsave

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

图像的格式由您为文件名选择的扩展名决定。其他参数可以传递给 ，特别是 、 和 。ggsavewidthheightdpi

对于第一个问题，我发现在交互式工作时是最好的。首先，你直观地设置你的绘图，当你对你所看到的内容感到满意时，你可以要求 R 将当前绘图保存到磁盘上dev.print

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

您可以替换为其他格式，例如 .pdfpng

这将完全复制您在屏幕上看到的图像。问题在于图像通常不同，并且不记得窗口大小和纵横比 - 默认情况下它会强制绘图为正方形。dev.copy

对于第二个问题（正如其他人已经回答的那样），在执行打印命令之前，必须将输出定向到磁盘

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

如果您按照 Andrie 的建议（最佳答案）使用 、 等打开设备，则不会弹出带有绘图的窗口，只会创建 *.png、*bmp 或 *.pdf 文件。这在大规模计算中很方便，因为 R 只能处理有限数量的图形窗口。png()bmp()pdf()

但是，如果要查看绘图并保存它们，请在绘制绘图且包含绘图的窗口处于活动状态后调用。savePlot(filename, type)

为了补充这些答案，如果你有一个 R 脚本，其中包含生成绘图到屏幕（本机设备）的调用，那么这些都可以保存到 PDF 文件（非交互式 shell 的默认设备）“Rplots.pdf”（默认名称）通过将脚本从终端重定向到 R（假设你运行的是 Linux 或 OS X）， 例如：

R < myscript.R --no-save

这可以根据需要转换为 JPEG 或 PNG。

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

png(filename=plotpath)

plot(x, y, main=file)

dev.off()

在某些情况下，人们希望同时保存和打印基本 R 图。我花了一点时间，想出了这个实用函数：

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

请注意，必须使用 ，否则调用将在全局环境中运行并传递给 。quoteplot(x)NULLbasesave()

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