按名称保存图表列表()

Question

假设我有一个我创建的情节列表.

library(ggplot2)
plots <- list()
plots$a <- ggplot(cars, aes(speed, dist)) + geom_point()
plots$b <- ggplot(cars, aes(speed)) + geom_histogram()
plots$c <- ggplot(cars, aes(dist)) + geom_histogram()

现在,我想保存所有这些,用各自的名称(图表)元素标记每个.

lapply(plots, 
       function(x) { 
         ggsave(filename=paste(...,".jpeg",sep=""), plot=x)
         dev.off()
         }
       )

我将如何替换"...",以便在我的工作目录中将图保存为:

a.jpeg
b.jpeg
c.jpeg

Answer 1

可能你需要传递列表的名称:

lapply(names(plots), 
  function(x)ggsave(filename=paste(x,".jpeg",sep=""), plot=plots[[x]]))