在R语言中按index对数据框行求和聚合的最简方法

嘿，我来帮你搞定这个问题！从你给出的原数据和目标结果来看，核心需求是按index分组，对col3求和，对col4根据组内值的情况处理（同组值相同则保留该值，不同则求和），同时忽略type.x和type.y这两个无关列。下面给你两种最简实现方式，其中dplyr的写法更直观易懂，也是我最推荐的：

方法一：用dplyr包（推荐） #

如果你之前用group_by没成功，大概率是没正确指定聚合函数或者列的处理逻辑。试试这个代码：

# 先加载dplyr包（未安装的话先运行install.packages("dplyr")）
library(dplyr)

# 假设你的原始数据框叫df
result <- df %>%
  group_by(index) %>%  # 按index字段分组
  summarise(
    col3 = sum(col3),  # 对col3直接求和
    # 处理col4：组内值唯一则保留，否则求和
    col4 = ifelse(length(unique(col4)) == 1, unique(col4), sum(col4)),
    .groups = "drop"   # 取消分组状态，返回普通数据框
  )

针对你的示例数据，运行后完全匹配目标结果：

• index=3的col3是15+20=35，col4因组内值都是555，直接保留555
• index=4的col3是666+666=666，col4是10+20=30

如果你的需求是对col4统一求和，直接把col4那行改成col4 = sum(col4)即可。

方法二：用base R的aggregate函数 #

要是不想加载额外包，用base R自带的aggregate也能实现，语法如下：

# 对col3和col4应用自定义聚合逻辑
result <- aggregate(
  list(col3 = df$col3, col4 = df$col4),
  by = list(index = df$index),
  FUN = function(x) ifelse(length(unique(x)) == 1, unique(x), sum(x))
)

验证示例数据 #

你可以用下面的代码创建示例数据框，测试上述方法：

df <- data.frame(
  index = c(1,2,3,3,4,4),
  type.x = c("a","b","a","a","a","b"),
  type.y = c("m","m","m","n","m","m"),
  col3 = c(20,30,15,20,666,666),
  col4 = c(25,28,555,555,10,20)
)

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