如何提取R列表中的所有名称及内嵌矩阵的列标题名？

针对给定的嵌套列表list_tmp，我们可以通过Base R的向量式操作（避免for循环）完成需求：

一、提取所有层级的列表名称 #

针对当前两层嵌套的简单场景 #

• 顶层列表名称：

  names(list_tmp)
  # 输出: [1] "Top"
  

• 第二层子列表名称：

  names(list_tmp$Top)
  # 输出: [1] "One" "Two"
  

通用递归提取（适配任意深度嵌套） #

如果需要处理更深层次的嵌套列表，可使用递归函数一次性获取所有列表名称：

get_all_list_names <- function(x) {
  if (is.list(x)) {
    c(names(x), unlist(lapply(x, get_all_list_names)))
  } else {
    NULL
  }
}

# 调用函数
get_all_list_names(list_tmp)
# 输出: [1] "Top"  "One"  "Two"

二、提取内嵌矩阵的列标题 #

获取各矩阵列标题的列表 #

使用lapply遍历list_tmp$Top的子元素，提取每个矩阵的列名：

matrix_colnames <- lapply(list_tmp$Top, colnames)

输出结果为结构化列表，键对应子列表名称，值为对应矩阵的列标题：

$One
[1] "A"     "B"     "Total"

$Two
[1] "A"     "Total"

整合为扁平化数据框（可选） #

如果需要更易读的表格格式，可将子列表名称与对应列标题整合成数据框：

df_result <- do.call(rbind, lapply(names(list_tmp$Top), function(nm) {
  data.frame(
    sublist_name = nm,
    column_name = colnames(list_tmp$Top[[nm]]),
    stringsAsFactors = FALSE
  )
}))

生成的数据框如下：

sublist_name column_name
1          One           A
2          One           B
3          One        Total
4          Two           A
5          Two        Total

内容的提问来源于stack exchange，提问作者Village.Idyot