[英]How to save a plot as image on the disk?
我使用 R 绘制了一个简单的线性回归。我想将该图像保存为 PNG 或 JPEG,是否可以自动进行? (通过代码)
有两个不同的问题:首先,我已经在显示器上查看绘图,我想按原样保存它。 其次,我还没有生成绘图,但我想在执行绘图代码时直接将其保存到磁盘。
有两个密切相关的问题,每个问题都有一个答案。
要保存绘图,您需要执行以下操作:
png()
, bmp()
, pdf()
或类似dev.off()
关闭设备将绘图保存到png
文件的一些示例代码:
fit <- lm(some ~ model)
png(filename="your/file/location/name.png")
plot(fit)
dev.off()
这在图形格式?png
、 ?bmp
、 ?jpeg
和?tiff
的(组合)帮助页面以及?pdf
的单独帮助页面中进行了描述。
但是请注意,图像在磁盘上看起来可能与直接绘制到屏幕上的同一图不同,例如,如果您调整了屏幕窗口的大小。
请注意,如果您的绘图是由lattice
或ggplot2
您必须明确打印该绘图。 请参阅此答案,该答案更详细地解释了这一点,并链接到 R 常见问题解答: ggplot 的 qplot 不执行采购
dev.print(pdf, 'filename.pdf')
这应该完美地复制图像,尊重您对交互式窗口所做的任何调整。 您可以像本答案的第一部分一样,将pdf
替换为其他文件类型,例如png
。
如果您想继续在 R 中查看绘图,另一种选择是使用dev.copy
:
X11 ()
plot (x,y)
dev.copy(jpeg,filename="plot.jpg");
dev.off ();
如果您在 R 中遇到过多的绘图窗口,请使用graphics.off()
关闭所有绘图窗口。
如果您使用ggplot2
,首选的保存方式是使用ggsave
。 首先你必须绘图,在创建绘图后调用ggsave
:
ggplot(...)
ggsave("plot.png")
图像的格式由您为文件名选择的扩展名决定。 可以将其他参数传递给ggsave
,特别是width
、 height
和dpi
。
像这样
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()
可能还有其他人。 它们都一起列在帮助页面中。
对于第一个问题,我发现dev.print
在交互工作时是最好的。 首先,您可以直观地设置您的绘图,当您对所看到的感到满意时,您可以要求 R 将当前绘图保存到磁盘
dev.print(pdf, file="filename.pdf");
您可以将pdf
替换为其他格式,例如png
。
这将完全复制您在屏幕上看到的图像。 dev.copy
的问题在于图像通常不同并且不记得窗口大小和纵横比 - 默认情况下它会强制绘图为方形。
对于第二个问题,(正如其他人已经回答的那样),您必须在执行绘图命令之前将输出定向到磁盘
pdf('filename.pdf')
plot( yourdata )
points (some_more_data)
dev.off() # to complete the writing process and return output to your monitor
如果您使用 R Studio http://rstudio.org/有一个特殊菜单可以将您的绘图保存为您喜欢的任何格式和您选择的任何分辨率
如果您按照Andrie 的建议使用png()
、 bmp()
、 pdf()
等打开设备(最佳答案),则不会弹出带有绘图的窗口,只会弹出 *.png、*bmp 或 *.pdf将创建文件。 这在大量计算中很方便,因为 R 只能处理有限数量的图形窗口。
但是,如果您想查看绘图并保存它们,请在绘制绘图并且包含它们的窗口处于活动状态后调用savePlot(filename, type)
。
plotpath<- file.path(path, "PLOT_name",paste("plot_",file,".png",sep=""))
png(filename=plotpath)
plot(x,y, main= file)
dev.off()
要添加到这些答案中,如果您有一个包含生成绘图到屏幕(本机设备)的调用的 R 脚本,那么这些都可以保存到 pdf 文件(非交互式外壳的默认设备)“Rplots.pdf "(默认名称)通过将脚本从终端重定向到 R(假设您运行的是 linux 或 OS X),例如:
R < myscript.R --no-save
这可以根据需要转换为 jpg/png
在某些情况下,人们想要保存和打印一个基本的 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")
请注意,必须使用quote
,否则plot(x)
调用将在全局环境中运行,并且NULL
将传递给basesave()
。
dev.copy(png,'path/pngFile.png')
plot(YData ~ XData, data = mydata)
dev.off()
要在 RStudio 中获取 *.png,您可以随时从图中拖放。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.