在lapply中保存情节

您的图将存储在一个列表中，因此您可以在输出上使用lapply来保存所有图。在这里得到了答案：按名称保存图列表（）

# create data for this example (data above too involved)
df <- data.frame(value = rnorm(100), dates = rep(1:50, 2), type = rep(c("a", "b")))
list1 <- split(df, df$type)


plots <- lapply(list1, function(x) ggplot(x, aes(dates, value)) + geom_boxplot())

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