R：使用ggplot2和lapply生成多个条形图：如何根据列表插入字幕？

我的目标是生成并保存几个条形图lapply and ggplot2。为此，我根据我的数据创建了一个列表。现在，除了字幕之外，一切都正常：我想将列表元素的名称插入到图表中。到目前为止，我只能插入第一个元素的名称。

我找到了另一篇文章，这对我到目前为止有很大帮助。我是新来的，所以我希望我以正确的方式发布这个问题（我还没有找到与其他帖子相关的选项）。

我改编了这段代码这个问题 https://stackoverflow.com/questions/34241954/saving-plots-within-lapply因为我对那里提供的案例有一个后续问题。

###creating some random data:

df <- data.frame(value = floor(runif(20,min=0,max=30)), 
                 Intervall = paste("Intervall",rep(1:10,2)), type = rep(c("a", "b")))

list1 <- split(df, df$type)

###producing plots with lapply and ggplot

plots <- lapply(list1, function(x) {
                       ggplot(x, aes(Intervall, value)) + 
                        geom_bar(stat="identity") + 
                        labs(title="Intervalle", subtitle =names(list1))})
lapply(names(plots), 
       function(x) ggsave(filename=paste(x,".emf",sep=""), plot=plots[[x]]))

我的列表中的元素称为a and b。现在第一张图应该有副标题"a"，第二个图的副标题"b".

我怎样才能这样做呢？ （另外，在保存之前如何首先在控制台中查看我的绘图？）

With names(list1) "a"成为两个图表的副标题......

该问题与第二个命令无关。它来自“情节”的创造。在里面subtitle，我们正在传递整个names(list1)而不是相应的元素。如果我们循环遍历names'list1'，更容易获得每个列表元素对应的名称，而且list可以基于相同的名称进行子集化

plots <- lapply(names(list1), function(nm) {
                       ggplot(list1[[nm]], aes(Intervall, value)) + 
                        geom_bar(stat="identity") + 
                        labs(title="Intervalle", subtitle =nm)})
names(plots) <- names(list1)

现在，我们使用与 OP 中相同的命令（更改了.emf to .png

lapply(names(plots), function(nm) ggsave(filename =
       paste(path, nm, ".png", sep=""), plot = plots[[nm]]))

-plots