如何将R语言数据框中嵌套的子数据框列转为常规列？

先模拟你遇到的场景：用aggregate计算分组统计量后，直接把结果赋值给原数据框的新列，这时这个新列会变成嵌套的子数据框，示例如下：

# 模拟示例数据
df <- data.frame(
  group = rep(c("A", "B"), each = 3),
  value = 1:6
)

# 直接把aggregate结果赋值给原数据框列，生成子数据框列
df$agg_stats <- aggregate(value ~ group, df, FUN = function(x) c(均值=mean(x), 总和=sum(x)))

下面是几种实用的解决办法：

方法1：拆分已有的子数据框列 #

如果已经生成了子数据框列，用do.call(cbind, ...)把它拆成独立的常规列，再合并回原数据框：

# 拆分子数据框列为单独列
split_cols <- do.call(cbind, df$agg_stats)
# 合并到原数据框，同时删除原有的子数据框列
df <- cbind(df[, !names(df) %in% "agg_stats"], split_cols)

方法2：从源头避免生成子数据框列 #

使用aggregate时，直接把多统计量的结果展开成数据框，再合并到原数据框，就不会出现嵌套问题：

# 用aggregate生成带多统计量的数据框
agg_result <- aggregate(value ~ group, df, FUN = function(x) data.frame(均值=mean(x), 总和=sum(x)))
# 展开嵌套的统计量列
agg_result <- do.call(data.frame, agg_result)
# 合并到原数据框
df <- merge(df, agg_result, by = "group")

方法3：用dplyr更简洁处理（推荐） #

如果习惯用tidyverse工具链，dplyr的分组计算可以直接生成常规列，完全不会出现子数据框问题：

library(dplyr)
df <- df %>%
  group_by(group) %>%
  mutate(
    均值 = mean(value),
    总和 = sum(value)
  ) %>%
  ungroup()

补充说明 #

出现子数据框列的核心原因是：当aggregate的FUN返回向量或数据框时，直接赋值给原数据框列会把每个组的结果打包成子数据框的行，最终整个列变成嵌套结构。上面的方法要么拆分已有的嵌套列，要么从一开始就避免生成嵌套结构。

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