如何一次性从多个列表提取名称并存入outputs数据框？

一、少量列表的手动处理方式 #

如果只有2-3个列表，直接提取名称后合并即可，还可以添加一列标记名称来自哪个列表，方便后续区分：

# 分别提取两个列表的名称
hema_names <- names(plot_overall_hema)
chem_names <- names(plot_overall_chem)

# 合并为目标数据框
outputs <- data.frame(
  来源列表 = c(rep("plot_overall_hema", length(hema_names)), rep("plot_overall_chem", length(chem_names))),
  元素名称 = c(hema_names, chem_names),
  stringsAsFactors = FALSE
)

二、多列表的批量处理方式 #

当列表数量较多（比如10个以上），推荐把所有目标列表整合到一个母列表中，再批量处理，避免重复代码：

方法1：基础R实现

# 将所有需要处理的列表放入一个母列表（可根据实际需求添加更多列表）
all_target_lists <- list(
  plot_overall_hema = plot_overall_hema,
  plot_overall_chem = plot_overall_chem
)

# 批量提取名称并合并为数据框
outputs <- do.call(rbind, lapply(names(all_target_lists), function(list_name) {
  data.frame(
    来源列表 = list_name,
    元素名称 = names(all_target_lists[[list_name]]),
    stringsAsFactors = FALSE
  )
}))

方法2：tidyverse工具链简化（更简洁）

如果你习惯用tidyverse系列包，可以用purrr的imap_dfr函数快速实现：

library(purrr)
library(dplyr)

# 同样先整合所有目标列表到母列表
all_target_lists <- list(
  plot_overall_hema = plot_overall_hema,
  plot_overall_chem = plot_overall_chem
)

# 批量提取并合并
outputs <- imap_dfr(all_target_lists, ~ data.frame(元素名称 = names(.x), stringsAsFactors = FALSE)) %>%
  mutate(来源列表 = names(all_target_lists)) %>%
  relocate(来源列表)

三、列表名称有规律时的自动批量获取 #

如果你的列表名称有统一规律（比如都以plot_overall_开头），可以用mget()配合ls()自动抓取所有符合条件的列表，不用手动逐个添加：

# 匹配所有名称以"plot_overall_"开头的列表
target_list_names <- ls(pattern = "^plot_overall_")
all_target_lists <- mget(target_list_names)

# 后续处理和上面的批量方法一致
outputs <- do.call(rbind, lapply(names(all_target_lists), function(list_name) {
  data.frame(
    来源列表 = list_name,
    元素名称 = names(all_target_lists[[list_name]]),
    stringsAsFactors = FALSE
  )
}))

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