r - ggsave 以批处理模式自动保存所有完成的绘图

Question

有没有办法在批处理模式下使用ggsave？当我说批处理模式时，我的意思是我首先通过 ggplot 绘制所有图，然后将每个图保存在特定文件夹中。 Here是一个建议称为

的参数

plot=last_plot()

但没有给出替代方案。还有其他选择吗，比如plot=all_plot()？

Answer 1

正如 @baptiste 建议的那样，您可以将绘图保留在列表中。以下代码都绘制了图(通过使用 print 这是必要的，否则对列表的分配会阻止图的显示)，并将它们存储在列表中，然后 lapply 在列表上单击以将它们全部保存为文件:

library(ggplot2)
plots <- list()
print(plots[[1]] <- ggplot() + geom_point(aes(x=runif(10), y=runif(10))))
print(plots[[2]] <- ggplot() + geom_point(aes(x=runif(10), y=runif(10))))
print(plots[[3]] <- ggplot() + geom_point(aes(x=runif(10), y=runif(10))))
invisible(
  lapply(
    seq_along(plots), 
    function(x) ggsave(filename=paste0("myplot", x, ".png"), plot=plots[[x]])
) )