如何在R语言中拆分嵌套列表并生成两个输出结果

针对你描述的嵌套列表结构，这里提供几种高效的实现方式，将所有同名子元素合并为单个向量，最终得到目标列表res：

方法一：基础R实现（无需额外包） #

利用基础R的lapply和unlist函数即可完成，代码简洁直观：

# 提取并合并所有list1
combined_list1 <- unlist(lapply(mylist, function(x) x$list1))
# 提取并合并所有list2
combined_list2 <- unlist(lapply(mylist, function(x) x$list2))
# 构建结果列表
res <- list(list1 = combined_list1, list2 = combined_list2)

也可以用更紧凑的写法，通过遍历目标名称批量处理：

target_names <- c("list1", "list2")
res <- lapply(target_names, function(name) {
  unlist(sapply(mylist, `[[`, name))
})
names(res) <- target_names

方法二：使用purrr包（tidyverse风格） #

如果你熟悉tidyverse生态，purrr包的函数能让代码更简洁优雅：

方式1：直接提取合并 #

library(purrr)

res <- list(
  list1 = map_dbl(mylist, "list1") %>% unlist(),
  list2 = map_dbl(mylist, "list2") %>% unlist()
)

方式2：转置列表后合并 #

先转置嵌套列表，让同名子元素自动归组，再统一合并：

library(purrr)

# 转置嵌套列表，将所有list1、list2分别聚合
transposed_list <- transpose(mylist)
# 对每组子元素执行合并
res <- map(transposed_list, unlist)

执行上述任意代码后，res$list1会包含原mylist中所有list1的合并结果，res$list2同理，完全符合你需要的输出格式。

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