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]])
) )