如何展开R数据框中的列表列并重塑数据框结构？

你可以用以下几种方法实现需求：

方法1：使用tidyr包的unnest函数（推荐，简洁直观） #

这是tidyverse生态中专门处理列表列展开的函数，代码简洁易读：

# 先加载tidyr包（若未安装先运行install.packages("tidyr")）
library(tidyr)

# 你的原始数据
df <- data.frame(x = 1:2, y = c("A", "B"))
df$z <- rep(list(1:3), 2)

# 展开列表列z
result <- unnest(df, cols = z)
print(result)

运行后会直接得到你想要的结构。

方法2：Base R实现（无需额外包） #

如果你不想加载第三方包，可以用基础R的循环+合并实现：

df <- data.frame(x = 1:2, y = c("A", "B"))
df$z <- rep(list(1:3), 2)

# 遍历每一行，生成对应扩展后的小数据框，再合并
result <- do.call(rbind, lapply(1:nrow(df), function(i) {
  data.frame(
    x = df$x[i],
    y = df$y[i],
    z = df$z[[i]]
  )
}))
print(result)

方法3：使用data.table包（适合大数据场景） #

如果处理的是大型数据框，data.table的方法效率更高：

# 先加载data.table包（若未安装先运行install.packages("data.table")）
library(data.table)

df <- data.frame(x = 1:2, y = c("A", "B"))
df$z <- rep(list(1:3), 2)

# 转换为data.table并按x、y分组展开z列
setDT(df)[, .(z = unlist(z)), by = .(x, y)]

为什么unlist(df)不行？ #

unlist(df)会把整个数据框的所有元素（包括x、y的标量和z的列表元素）全部展开成一个一维向量，丢失了x、y与z元素的对应关系，所以无法得到预期的二维数据框结构。

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