如何将列表结构可靠转为data.frame/tibble并保留指定列表列

刚好碰到过类似的需求——把包含复杂对象（比如你的lm模型）的列表转换成tibble/data.frame，同时还要把这些复杂对象保留成列表列，不会被拆解开。我来给你一步步说清楚问题和解决方案：

先重现你的场景 #

首先先跑一遍你的示例代码（我加了set.seed让结果可复现）：

set.seed(123)
library(tidyverse)

d = data.frame(x = 1:10, y = 1.5*(1:10) + rnorm(10))
ex = list(label = "A", number = 1L, model = lm(y ~ x, data = d))

你之前用的lapply(ex, as_data_frame) %>% bind_rows()之所以失败，是因为as_data_frame会把像lm这样的复杂对象拆解成它的各个属性（比如系数、残差、拟合值这些），直接转成多列数据框，完全破坏了我们想要保留完整模型对象的需求。

解决方案1：手动包裹复杂元素 #

最直接的办法就是把你想保留为列表列的元素，提前用list()包裹起来，再转成tibble：

方式A：创建列表时直接包裹 #

# 创建列表时就把lm对象用list()包起来
ex_fixed = list(
  label = "A",
  number = 1L,
  model = list(lm(y ~ x, data = d))
)

# 转成tibble
as_tibble(ex_fixed)

方式B：修改已有的列表 #

如果已经有了ex这个列表，直接修改对应的元素即可：

ex_fixed = ex
# 把model元素用list()包裹
ex_fixed$model = list(ex_fixed$model)

as_tibble(ex_fixed)

这时候你查看结果的model列，会发现它是一个列表列，每个元素都是完整的lm对象，完全符合预期。

解决方案2：批量处理多个复杂元素 #

如果你的列表里有不止一个复杂对象（比如同时有lm模型、另一个数据框、自定义函数等），手动一个个包裹太麻烦，可以写个小函数自动识别并处理：

# 定义一个函数：非原子类型的对象就用list包裹，原子类型保持原样
wrap_complex_objects = function(x) {
  # 判断是否是原子向量（字符串、整数、数值这些都是原子向量）
  if (!is.atomic(x) && !is.null(x)) {
    list(x)
  } else {
    x
  }
}

# 对列表每个元素应用这个函数，再转成tibble
ex_processed = purrr::map(ex, wrap_complex_objects) %>% as_tibble()

验证一下效果：

# 查看model列的类型
class(ex_processed$model) # 输出 "list"
class(ex_processed$model[[1]]) # 输出 "lm"，说明模型对象完整保留了

原理说明 #

tibble（或者说data.frame）的列表列，本质上就是列的每个元素是一个列表。当你把单个复杂对象直接传给tibble时，它会尝试把这个对象拆解成适合作为数据框列的结构；但如果把对象放在list()里，tibble就会把这个小列表当成列的单个元素，从而保留整个对象的完整性。

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