如何将data.frame中的嵌套列表展开并关联原有ID列？

首先构造符合你描述的示例数据：

set.seed(123)
library(tidyverse)

# 示例数据：包含原有id列、常规列，以及嵌套列表列（部分元素为空或多行）
df <- tibble(
  original_id = c("A001", "A002", "A003", "A004"),
  regular_column = c("x", "y", "z", "w"),
  nested_list_col = list(
    data.frame(sub_col1 = 1:2, sub_col2 = c("a", "b")),
    character(0),  # 空元素
    data.frame(sub_col1 = 3, sub_col2 = "c"),
    data.frame(sub_col1 = 4:5, sub_col2 = c("d", "e"))
  )
)

核心实现代码 #

使用tidyr::unnest()函数可以直接完成需求，关键参数keep_empty = TRUE用于保留空元素，同时原有original_id会自动关联展开后的每一行：

# 展开嵌套列，保留空元素，关联原有id
final_result <- df %>%
  unnest(nested_list_col, keep_empty = TRUE)

# 查看结果
print(final_result)

输出结果：

# A tibble: 6 × 4
  original_id regular_column sub_col1 sub_col2
  <chr>       <chr>             <int> <chr>   
1 A001        x                     1 a       
2 A001        x                     2 b       
3 A002        y                    NA NA      
4 A003        z                     3 c       
5 A004        w                     4 d       
6 A004        w                     5 e       

特殊情况处理：嵌套元素为矩阵/非data.frame结构 #

如果你的嵌套列表元素是矩阵而非data.frame，需要先将其转换为data.frame格式，空元素则构造含NA的空结构：

# 嵌套元素为矩阵的示例数据
df_matrix <- tibble(
  original_id = c("A001", "A002"),
  nested_matrix_col = list(
    matrix(c(1,2,"a","b"), ncol=2, dimnames = list(NULL, c("sub_col1", "sub_col2"))),
    character(0)
  )
)

# 转换+展开
result_matrix <- df_matrix %>%
  mutate(nested_matrix_col = map(nested_matrix_col, ~{
    if (length(.x) > 0) {
      as.data.frame(.x, stringsAsFactors = FALSE) %>%
        mutate(across(everything(), type.convert, as.is = TRUE))  # 自动转换数据类型
    } else {
      tibble(sub_col1 = NA, sub_col2 = NA)
    }
  })) %>%
  unnest(nested_matrix_col)

print(result_matrix)

关键说明 #

• unnest()会基于原数据的行分组展开嵌套列，因此原有original_id列会自然关联到每一条展开后的记录，不会使用索引id。
• keep_empty = TRUE确保嵌套元素为空（如character(0)）的行被保留，对应子列填充NA。

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