R语言aggregate()函数聚合后含列表的数据表处理方案咨询

针对你用aggregate()得到类别对应零件列表的结果，以及想要转交叉表的需求，我整理了几个实用的方案：

一、简化当前的aggregate()代码 #

先提个小优化，你当前的代码可以简化，不用重复引用数据框名，可读性更好：

WS_PART <- aggregate(niin_id ~ ws_category, data = PART_WS_Pct, FUN = unique)

这个写法和你原来的逻辑完全一致，只是更简洁。

二、把列表列转成逗号分隔的字符型 #

如果只是需要方便查看每个类别对应的零件号，把列表转成逗号分隔的字符串是个不错的选择：

方法1：用dplyr处理 #

library(dplyr)

WS_PART_char <- WS_PART %>%
  mutate(niin_id_str = sapply(niin_id, paste, collapse = ", ")) %>%
  select(ws_category, niin_id_str)

方法2：Base R原生处理 #

# 给数据框新增字符型列
WS_PART$niin_id_str <- sapply(WS_PART$niin_id, paste, collapse = ", ")
# 保留需要的列
WS_PART_char <- WS_PART[, c("ws_category", "niin_id_str")]

处理后你会得到每行一个类别，对应一列逗号分隔的零件号字符串，方便导出或快速查看。

三、转成交叉表（类别为表头，零件为行） #

如果需要做后续数据分析（比如筛选特定类别下的零件、做特征工程），交叉表格式会更实用，这里提供两种实现方式：

方法1：用tidyverse（推荐，灵活易读） #

先确保每个零件-类别组合唯一，再转宽格式：

library(dplyr)
library(tidyr)

# 第一步：去重，避免同一零件在同一类别下重复出现
unique_part_cat <- distinct(PART_WS_Pct, ws_category, niin_id)

# 转成0/1标记的交叉表
cross_table_01 <- unique_part_cat %>%
  mutate(present = 1) %>%
  pivot_wider(names_from = ws_category, values_from = present, values_fill = 0)

# 转成TRUE/FALSE标记的交叉表（如果需要逻辑值）
cross_table_logical <- unique_part_cat %>%
  mutate(present = TRUE) %>%
  pivot_wider(names_from = ws_category, values_from = present, values_fill = FALSE)

方法2：Base R原生实现 #

用table()函数直接生成频数表，因为已经去重，结果就是0/1的格式：

# 去重
unique_part_cat <- unique(PART_WS_Pct[, c("ws_category", "niin_id")])
# 生成交叉表
cross_table_base <- table(unique_part_cat$niin_id, unique_part_cat$ws_category)
# 转成数据框格式（可选）
cross_table_base_df <- as.data.frame.matrix(cross_table_base)

方案选择建议 #

• 如果只是需要查看或导出类别对应的零件列表：选择转逗号分隔字符串的方案，简单直观。
• 如果需要后续数据分析、建模或筛选：选择交叉表方案，0/1或逻辑值的格式更适合R的数据分析流程。

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