在R中如何将指定列转为列名并聚合对应值（适配包版本）

下面提供几种无需依赖新版tidyverse包的可行方法，满足你的数据重塑需求：

方法1：基础R xtabs 函数（推荐，一步聚合转宽） #

xtabs 可以直接生成交叉汇总表，自动对Weight求和，空值默认填充为0：

# 先构造示例数据（你可以替换成自己的数据框）
df <- data.frame(
  Trip = c(1,1,2,2,2),
  Vessel = c("A","A","B","B","B"),
  Species = c("Cod","Haddock","Cod","Haddock","Salmon"),
  Weight = c(10,15,20,25,30)
)

# 生成交叉汇总表，按Trip+Vessel分组，Species转列，聚合Weight求和
cross_table <- xtabs(Weight ~ Trip + Vessel + Species, data = df)
# 转换为标准数据框，并拆分行名为Trip和Vessel列
result <- as.data.frame.matrix(cross_table)
result <- cbind(
  do.call(rbind, strsplit(rownames(result), "\\.")),
  result
)
colnames(result)[1:2] <- c("Trip", "Vessel")
rownames(result) <- NULL

方法2：基础R aggregate + reshape 组合 #

先手动聚合分组后的Weight总和，再转宽格式并填充空值为0：

# 1. 按Trip、Vessel、Species分组，求和Weight
aggregated_df <- aggregate(Weight ~ Trip + Vessel + Species, data = df, FUN = sum)

# 2. 转换为宽格式，空值用0填充
wide_df <- reshape(
  aggregated_df,
  idvar = c("Trip", "Vessel"),
  timevar = "Species",
  direction = "wide"
)

# 3. 清理列名（去掉前缀"Weight."），并将NA替换为0
colnames(wide_df) <- gsub("Weight\\.", "", colnames(wide_df))
wide_df[is.na(wide_df)] <- 0

方法3：使用data.table包（轻量高效） #

如果能安装data.table包（对R版本兼容性较好），可以用dcast一步完成聚合转宽：

# 安装包（首次使用需执行）
install.packages("data.table")
library(data.table)

# 转换为data.table格式，聚合转宽
dt <- as.data.table(df)
result_dt <- dcast(
  dt,
  Trip + Vessel ~ Species,
  value.var = "Weight",
  fun.aggregate = sum,
  fill = 0
)

额外说明 #

你之前用spread失败的原因是：spread本身不支持聚合操作，必须先通过group_by+summarise完成Weight的分组求和，再转宽。但如果你的R版本过低无法安装新版tidyverse，上述基础R或data.table方法更适配。

如果后续想使用tidyverse工具，建议升级你的R版本到4.0及以上（RStudio版本新不代表R版本新，可通过version命令查看当前R版本）。

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