如何在R中调用plot函数时自动保存生成的图像？

方法一：重写plot函数 #

直接覆盖默认的plot泛型，每次绘图完成后自动保存当前图像，用时间戳或序号生成唯一文件名避免覆盖：

# 先存好原始的plot函数
original_plot <- plot

# 重写plot
plot <- function(...) {
  original_plot(...)
  # 生成带时间戳的文件名
  filename <- paste0("auto_plot_", format(Sys.time(), "%Y%m%d_%H%M%S"), ".png")
  # 复制当前绘图设备内容并保存
  dev.copy(png, filename)
  dev.off()
}

# 直接调用plot即可
plot(1:6)
plot(1:7)

方法二：优化钩子函数用法 #

针对你提到的钩子问题，调整逻辑，用plot.new钩子结合计数器，同时处理最后一张图的保存：

# 初始化计数器
plot_idx <- 0

# 设置plot.new钩子
setHook("plot.new", function() {
  if (plot_idx > 0) {
    filename <- paste0("plot_", plot_idx, ".png")
    dev.copy(png, filename)
    dev.off()
  }
  plot_idx <<- plot_idx + 1
})

# 自动处理退出时的最后一张图
atexit(function() {
  if (plot_idx > 0) {
    filename <- paste0("plot_", plot_idx, ".png")
    dev.copy(png, filename)
    dev.off()
  }
})

# 测试调用
plot(1:6)
plot(1:7)

关键说明 #

• 用dev.copy而非直接在钩子中开启新设备，能避免空文件问题，因为它是复制当前已经绘制完成的设备内容。
• 文件名规则可以自行修改，比如换成自定义前缀+序号，或者根据绘图内容命名。
• 钩子方法里的计数器要用全局赋值（<<-），不然每次钩子触发都会重置。

内容的提问来源于stack exchange，提问作者ishua