如何从多层嵌套列表构建tibble？

针对你需要将深度嵌套列表转换为指定结构tibble的需求，提供以下解决方法：

核心思路 #

1. 遍历顶层的每个次级列表（每个次级列表对应最终tibble的一行观测）
2. 从每个次级列表的三级列表中提取**标识符（identifiers）**作为列名，**值（values）**作为对应单元格的数值
3. 将每个次级列表转换为单行tibble，最后合并所有单行结果得到完整tibble

完整代码 #

library(purrr)
library(tibble)

# 生成示例嵌套列表（你原有的代码）
set.seed(123)
nested_list <- replicate(5, {
  lapply(1:14, function(counter) {
    list(
      identifiers = letters[counter],
      values = runif(1, 1, 10)
    )
  })
}, simplify = FALSE)

# 转换为目标tibble
result <- map_dfr(nested_list, function(sub_list) {
  # 提取列名和对应值
  col_names <- map_chr(sub_list, "identifiers")
  col_values <- map_dbl(sub_list, "values")
  # 构造单行tibble
  tibble(!!!set_names(col_values, col_names))
})

# 查看结果
print(result)

代码解释 #

• map_dfr(nested_list, ...)：遍历顶层的每个次级列表，处理后按行合并成最终tibble
• map_chr(sub_list, "identifiers")：从次级列表的每个三级列表中提取标识符，生成列名字符向量
• map_dbl(sub_list, "values")：提取每个三级列表中的数值，生成数值向量
• !!!set_names(col_values, col_names)：通过set_names为数值向量绑定列名，再用!!!将键值对展开为tibble的列结构

原代码问题说明 #

你之前的代码是直接遍历三级列表而非次级列表，导致生成的是多行单列的结果，而非每行对应一个次级列表的结构。调整遍历层级后即可得到目标输出。

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