Блог

Я создаю кучу графиков с помощью пакета ggplot2. Я установил заголовок на каждом из своих графиков, и теперь я хотел бы сохранить их все под именем заголовка, который я установил. Есть ли простой способ сохранить их на моем компьютере без необходимости писать ggsave("title_of_my_graph.png", plot=my_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)