如何控制as_tibble()的扁平化层级以保留嵌套列表结构？

我懂你碰到的麻烦了——as_tibble()总爱自作主张把嵌套列表扁平化到能生成表格的层级，结果把你想完整保留的嵌套结构拆成了多行，完全不是预期的样子！

核心思路其实很简单：要阻止自动扁平化，就得让每个顶层列表元素都以单元素列表的形式存在，这样as_tibble()就不会去拆分或展开它。下面给你几种实用的解决方法：

方法1：手动构造tibble（最直观） #

如果你的嵌套列表结构比较简单，直接用tibble()手动把每个元素包裹进list()里就行：

library(tibble)

# 假设这是你的原始嵌套列表
my_nested_list <- list(
  col_a = c(1, 2),
  col_c = list(
    list(subitem1 = "foo", subitem2 = 3),
    list(subitem1 = "bar", subitem2 = 4)
  )
)

# 构造保留嵌套结构的1行tibble
my_tibble <- tibble(
  col_a = list(my_nested_list$col_a),
  col_c = list(my_nested_list$col_c)
)

这样得到的tibble就是1行，col_c会完整保留你想要的双层嵌套列表结构。

方法2：用purrr批量处理（通用高效） #

如果你的列表有很多顶层元素，手动一个个包裹太麻烦，用purrr::map()批量把每个顶层元素转成单元素列表，再转成tibble：

library(purrr)
library(tibble)

my_tibble <- my_nested_list %>%
  map(list) %>%  # 把每个顶层元素都包裹成单元素列表
  as_tibble()

这个方法不管你有多少列，都能一次性处理，完美保留所有嵌套层级。

方法3：针对已有tibble修复（如果已经误操作了） #

如果你已经用as_tibble()得到了多行结果，想把它合并回1行并保留嵌套，用summarise()把列重新打包成列表：

library(dplyr)
library(tibble)

# 先得到被拆分的多行tibble
split_tibble <- as_tibble(my_nested_list)

# 合并回1行，保留嵌套
fixed_tibble <- split_tibble %>%
  summarise(
    across(everything(), list)
  )

across(everything(), list)会把每一列都打包成一个嵌套列表，最终得到1行的结果。

内容的提问来源于stack exchange，提问作者Steven M. Mortimer