如何行绑定嵌套列表中的所有tibble对象并生成包含层级标识的单一tibble

嘿，我来帮你搞定这个嵌套列表合并的需求！要把四层嵌套里的每个tibble都提取出来，同时带上每一层的元素名称，最终合并成包含五列的tibble，用tidyverse工具链就能轻松实现。

方法一：用purrr的嵌套imap_dfr遍历 #

这种方法直接对应你的四层嵌套结构，逻辑清晰，容易理解：

首先确保加载需要的包：

library(dplyr)
library(purrr)
library(tibble)

然后运行以下代码处理你的嵌套列表：

# 处理嵌套列表，合并为单一tibble
merged_tbl <- tbl %>%
  # 遍历第一层，first是第一层元素名称（A/B），second_lvl是第二层列表
  imap_dfr(function(second_lvl, first) {
    # 遍历第二层，second是第二层元素名称（m/n），third_lvl是第三层列表
    imap_dfr(second_lvl, function(third_lvl, second) {
      # 遍历第三层，third是第三层元素名称（a/b），fourth_lvl是第四层列表
      imap_dfr(third_lvl, function(fourth_lvl, third) {
        # 遍历第四层，fourth是第四层元素名称（x/y），tbl_df是对应的tibble
        imap_dfr(fourth_lvl, function(tbl_df, fourth) {
          tbl_df %>%
            # 添加各层元素名称作为新列
            mutate(
              first_element = first,
              second_element = second,
              third_element = third,
              forth_element = fourth
            ) %>%
            # 调整列顺序，把名称列放到前面
            relocate(first_element, second_element, third_element, forth_element)
        })
      })
    })
  })

代码解释 #

• imap_dfr是purrr中的核心函数，它在遍历列表元素的同时，会把元素的名称也传递给回调函数，这正好满足我们提取每一层列表名称的需求；_dfr后缀表示最终会把所有结果按行绑定成一个tibble。
• 每一层遍历都会把当前层的名称作为新列添加到对应的子tibble中，最后用relocate调整列顺序，和你预期的结果结构完全一致。

验证结果 #

你可以用all.equal(merged_tbl, tbl_expected)来验证结果是否和预期一致（注意因为a1等是随机生成的，只要结构和列值匹配就说明成功了）。

方法二：用tidyr的长格式转换（可选） #

如果你更喜欢用tidyr的重塑函数，也可以通过多次展开和转置来实现：

library(tidyr)
library(dplyr)

merged_tbl <- enframe(tbl, name = "first_element") %>%
  unnest_wider(value) %>%
  pivot_longer(-first_element, names_to = "second_element", values_to = "third_lvl") %>%
  unnest_wider(third_lvl) %>%
  pivot_longer(-c(first_element, second_element), names_to = "third_element", values_to = "fourth_lvl") %>%
  unnest_wider(fourth_lvl) %>%
  pivot_longer(-c(first_element, second_element, third_element), names_to = "forth_element", values_to = "p") %>%
  unnest(p)

这个方法通过把嵌套列表逐步展开成长格式，最终得到目标结构，适合习惯数据重塑操作的场景。

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