如何在lapply中为列表内的ggplot对象添加对应名称作为标题？

你遇到的问题核心在于：用lapply遍历plots列表时，x是单个ggplot对象，它本身没有名字（names(x)返回空），所以没法直接拿到列表的名称作为标题。下面给你几种可行的解决方法：

方法1：通过索引遍历列表 #

直接遍历列表的索引位置，通过索引获取对应的名称，再添加到标题中：

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(seq_along(plots), function(i) {
  plots[[i]] + 
    theme_bw() + 
    ggtitle(names(plots)[i])  # 用索引取列表的名称
})

# 展示结果
grid.arrange(plots[[1]], plots[[2]], plots[[3]])

方法2：用mapply同时传递图和名称 #

mapply可以同时处理多个输入，这里我们把图列表和它的名称列表一起传入函数：

plots <- mapply(function(plot_obj, plot_title) {
  plot_obj + 
    theme_bw() + 
    ggtitle(plot_title)
}, plots, names(plots), SIMPLIFY = FALSE)  # 必须设置SIMPLIFY=FALSE，保证返回列表

方法3：用purrr包的imap（更简洁） #

如果你习惯用tidyverse工具，purrr::imap会自动把列表的元素和对应的名称作为参数传入函数，写法更简洁：

library(purrr)

plots <- imap(plots, function(plot_obj, plot_title) {
  plot_obj + 
    theme_bw() + 
    ggtitle(plot_title)
})

这几种方法都能让每个ggplot对象带上列表中对应的名称作为标题，你可以根据自己的习惯选择其中一种。

内容的提问来源于stack exchange，提问作者nouse