在R中保存所有图像

我正在使用ggplot2包创建一组图形。我已经在每个图表上设置了一个标题，现在我想将它们全部保存在我设置的标题下。是否有一种简单的方法可以将它们保存在我的计算机上，而不必为脚本中的每个图形编写

ggsave（“title\u of_my\u graph.png”，plot=my\u graph，height=，width=）

命令

---

提前谢谢

您可以围绕

ggsave（）

编写一个按标题保存的包装器。示例如下：

ggsave_by_title <- function(plot, ...) {
  fname <- plot$labels$title
  if (is.null(fname)) {
    stop("No title detected")
  }
  fname <- paste0(fname, ".png")
  ggsave(fname, plot = plot, device = "png", ...)
}
p <- ggplot(iris, aes(Sepal.Width, Sepal.Length)) +
  geom_point(aes(colour = Species)) +
  ggtitle("Iris")

ggsave_by_title(p, width = 10, height = 5)

gg按标题保存