在 R 中绘图后自动调用 dev.off

Question

我正在寻找一种在有人调用 plot() 或 ggplot() 时自动调用 dev.off() 将绘图刷新到磁盘的方法。

这可能吗？ RStudio 看起来会自动加载绘图，它是如何工作的？

Answer 1

编辑：为ggplot 添加可能的方法。

请注意，plot 不会自动调用dev.off() 的原因是因为它很常见——在调用plot 之后——添加额外的材料（注释、补充绘图功能、标题、图例等），在调用dev.off() 完成输出之前进行额外调用。

但是，如果您真的希望plot 完成情节并阻止添加任何进一步的内容，您可以通过重新定义plot 来实现：

plot <- function(...) {
    graphics::plot(...)
    dev.off()
}

请注意，对于基于窗口的图形设备（例如，x11），由于dev.off() 会关闭窗口，所以绘图会在屏幕上短暂闪烁然后消失，但它应该可以正常处理文件：

> png("plot.png")
> plot(1:10,runif(10))
null device     <-- proof that dev.off() was called
          1 
> 

对于ggplot2，我想你最好的选择是覆盖print 方法（这是通常在屏幕上显示绘图的方式）。所以，如果你定义：

print.ggplot <- function(...) {
    ggplot2:::print.ggplot(...)
    dev.off()
}

然后：

> png("plot.png")
> ggplot(mapping=aes(x=1:10,y=1:10))+geom_line()
[[ print method is implicitly called here ]]
> dev.off()   # to prove that dev.off() was already called
Error in dev.off() : cannel shut down device 1 (the null device)
>

似乎可以按照您想要的方式工作。

我不使用 RStudio，所以我不确定它有什么不同，但我猜它以这样一种方式截取图形命令，即在文件已最终确定，而不是实际显示文件（对于位图图形，在绘图完全完成并调用 dev.off() 之前，根本无法写出文件）。