R语言如何将不等长元素列表自动转换为列数匹配的数据框

简便实现方案 #

完全不需要解析summary()的输出做文本清洗，用R原生函数就能几行代码搞定全流程，自动适配任意最大子元素长度。

1. 一行代码获取子元素最大数量

直接用R内置的lengths()函数，它会直接返回每个顶层列表元素的子元素长度组成的数值向量，直接取最大值即可：

max_col <- max(lengths(my_list))

这个方法比解析summary()结果效率高、没有文本匹配出错的风险，不管列表有多少个顶层元素都能瞬间算出结果。如果使用的是3.2.0之前的老旧R版本，可以替换为max_col <- max(sapply(my_list, length))实现完全相同的效果。

2. 自动生成匹配列数的数据框

不需要手动逐列写sapply提取内容，代码会自动补全长度不足的列表元素、按col1/col2规则命名列：

# 把所有列表元素补长到最大列数，不足的位置自动填充NA
padded_list <- lapply(my_list, function(x) {
  length(x) <- max_col
  x
})

# 合并为矩阵后转数据框
final_data <- as.data.frame(do.call(rbind, padded_list))

# 自动按规则设置列名
colnames(final_data) <- paste0("col", seq_len(ncol(final_data)))

运行完得到的final_data就是目标结果：每行对应原列表的一个顶层元素，列数自动匹配最大子元素数量，子元素不足的位置会自动填充NA，不需要手动调整列数。

如果习惯用tidyverse生态的函数，还可以用更短的写法实现同样效果：

library(purrr)
final_data <- map_dfr(my_list, ~as.data.frame(t(.x)), .name_repair = ~paste0("col", seq_along(.x)))

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