如何用unlist()展平R嵌套列表且仅保留子列表名称？

你需要将嵌套列表展平为单层列表，但只保留子列表的元素名称（如a、b），而非带上层分组前缀的group1.a这类名称，以下是几种可行的解决方法：

方法1：基础R手动重命名 #

先展平列表，再通过拆分现有名称提取子列表的原始名称：

# 创建嵌套列表
my_list <- list(
  group1 = list(a = 1, b = 2),
  group2 = list(c = 3, d = 4)
)

# 展平列表
flat_list <- unlist(my_list, recursive = FALSE)
# 提取子列表名称并重新赋值
names(flat_list) <- sapply(strsplit(names(flat_list), "\\."), function(x) x[2])

执行后输出：

> flat_list
$a
[1] 1

$b
[1] 2

$c
[1] 3

$d
[1] 4

方法2：使用purrr包快速实现 #

如果已经安装了purrr包，flatten()函数可以直接展平列表并保留子列表的原始名称，无需额外处理：

library(purrr)

flat_list <- flatten(my_list)

执行后得到的结果与方法1完全一致，代码更简洁。

方法3：基础R循环合并 #

不想依赖第三方包的话，也可以通过循环遍历每个分组列表，直接合并子元素：

flat_list <- list()
for (group in my_list) {
  flat_list <- c(flat_list, group)
}

这种方式同样能得到仅含子列表名称的单层列表。

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