在lappy期间将列表对象的名称粘贴到ggplot调用中

以下是使用 Map :

# Your sample plots
library(ggplot2)
library(gridExtra)
p <- ggplot(mtcars, aes(factor(cyl))) + geom_bar()
plots <- list(p,p,p)
names(plots) <- c("A","B","C")
plots <- lapply(plots, function(x) x + theme_bw())

# Add title to ggplots
plots <- Map(function(gg, title) gg + ggtitle(title), plots, names(plots));
grid.arrange(grobs = plots);

问题是您丢失了迭代使用的列表的名称 lapply .

如果你检查

lapply(plots, function(x) browser())

然后你就会看到 names(x) 退货

[1] "data"        "layers"      "scales"      "mapping"     "theme"       "coordinates" "facet"      
[8] "plot_env"    "labels" 

迭代添加标题的一种方法是迭代索引并将其用于子集 plots 和 names(plots) :

plots <- lapply(seq_along(plots), function(i) { 
  plots[[i]] + ggtitle(names(plots)[i])
})

然后,将添加标题,例如 plots[[1]] :

使用添加另一个选项 cowplot::plot_grid 我觉得这很有帮助。

cowplot::plot_grid(plotlist = plots, 
                   labels = names(plots),
                   ncol = 1)

数据

p <- ggplot(mtcars, aes(factor(cyl))) + geom_bar()
plots <- list(p,p,p)
names(plots) <- c("A","B","C")
plots <- lapply(plots, function(x) x + theme_bw())