如何将带命名子列表的嵌套列表转为宽格式DataFrame？

方法一：使用tidyverse（推荐，代码简洁） #

首先加载tidyverse包，它整合了dplyr、tidyr和purrr等工具，能高效处理这类数据转换：

library(tidyverse)

# 假设你的嵌套列表结构如下（可替换为实际的zF_agg2）
zF_agg2 <- list(
  "252" = list(a = 1, b = 2, c = 3),
  "306" = list(b = 4, d = 5),
  "371" = list(a = 6, c = 7, e = 8),
  "389" = list(d = 9)
)

# 一步转换为宽格式DataFrame
wide_df <- zF_agg2 %>%
  enframe(name = "ID", value = "values") %>%  # 将列表转为ID+values的两列结构
  unnest_wider(values)  # 展开values列的嵌套元素，缺失值自动填充NA

转换后的结果：

# A tibble: 4 × 6
  ID        a     b     c     d     e
  <chr> <dbl> <dbl> <dbl> <dbl> <dbl>
1 252       1     2     3    NA    NA
2 306      NA     4    NA     5    NA
3 371       6    NA     7    NA     8
4 389      NA    NA    NA     9    NA

方法二：基础R实现（无需额外包） #

如果不想加载第三方包，可用基础R代码完成转换：

# 提取所有子列表中出现过的元素名称
all_columns <- unique(unlist(lapply(zF_agg2, names)))

# 逐个处理每个子列表，生成对应行数据
row_list <- lapply(names(zF_agg2), function(id) {
  # 初始化一行全为NA的模板
  row_template <- setNames(rep(NA, length(all_columns)), all_columns)
  # 填充当前子列表的已有元素
  row_template[names(zF_agg2[[id]])] <- zF_agg2[[id]]
  # 拼接ID列和数据列
  c(ID = id, row_template)
})

# 合并所有行为DataFrame，并转换数值列类型
wide_df <- as.data.frame(do.call(rbind, row_list), stringsAsFactors = FALSE)
wide_df[, -1] <- lapply(wide_df[, -1], as.numeric)

关键说明 #

• 两种方法都会自动识别所有子列表中的元素名称，作为DataFrame的列名
• 子列表中不存在的元素，对应行自动填充NA
• ID列保留原嵌套列表的子列表名称（如252、306等）

内容的提问来源于stack exchange，提问作者bash-asker