能否用ggsave保存Base R绘制的图形？高分辨率保存求助

可以用ggsave保存Base R绘制的图形，无需重写为ggplot2代码，只需调整保存逻辑即可，具体操作如下：

核心原理 #

ggsave并非仅支持ggplot2对象，它可以捕获当前绘图设备中的图形，或者通过recordPlot()捕获Base R生成的图形对象，再进行保存。

修改后的代码 #

替换你原有的dev.copy相关代码，改为以下方式：

方法1：直接捕获当前设备图形（简洁版）

在循环中绘制完Base R图形后，直接调用ggsave：

filename <- paste0(titles[i-2], ".png")
# 绘制Base R图形的代码（比如plot()/hist()等）放在这一行之前
ggsave(filename, dpi = 300)

方法2：捕获图形对象（更稳妥）

如果担心设备状态影响捕获，可以先通过recordPlot()保存图形对象，再传给ggsave：

filename <- paste0(titles[i-2], ".png")
# 绘制Base R图形
plot(...) # 你的绘图代码
# 捕获图形对象
current_plot <- recordPlot()
# 保存图形
ggsave(filename, plot = current_plot, dpi = 300)

关键参数说明 #

• dpi = 300：对应你原代码中的res = 300，控制图形分辨率
• 无需手动调用dev.off()：ggsave会自动处理绘图设备的创建与关闭
• 若需指定格式，可添加device = "png"参数（通常可省略，ggsave会根据文件名后缀自动识别）

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