使用dplyr按多列分组求和失效，求正确实现方法

我来帮你排查这个问题！你写的代码逻辑本身是完全正确的，但大概率是几个常见的小细节导致分组没生效，以下是具体的排查和解决方法：

1. 确保正确加载dplyr包 #

如果你的环境里没加载dplyr，或者加载顺序有问题，group_by和summarise可能调用的不是dplyr的版本。可以在代码开头明确加载：

library(dplyr)

或者直接用包名指定函数，彻底避免函数冲突：

df %>% dplyr::group_by(v1, v2, v3) %>% dplyr::summarise(sumv4 = sum(v4))

2. 检查是否与plyr包冲突 #

如果你同时加载了plyr包，它的summarise函数会覆盖dplyr的同名函数，直接导致分组逻辑失效。可以先卸载plyr再重新加载dplyr：

detach(package:plyr)
library(dplyr)

之后再运行你的分组求和代码即可。

3. 验证数据框的列类型 #

虽然你的示例数据看起来没问题，但如果v1/v2/v3是字符型（比如带有隐藏空格），会导致分组识别异常。可以先检查列的类型：

str(df)

如果是字符型但实际是数值，先转换类型：

df <- df %>% mutate(across(c(v1, v2, v3), as.numeric))

验证后的完整测试代码 #

用你的示例数据测试，正确执行后会得到你想要的结果：

# 构造示例数据
df <- data.frame(
  v1 = c(1,1,1,2,2,3,3),
  v2 = c(0,0,0,1,1,2,2),
  v3 = c(5,5,5,5,5,4,4),
  v4 = c(1,1,0,1,0,1,0)
)

# 分组求和（.groups参数控制输出为普通数据框格式）
result <- df %>% 
  group_by(v1, v2, v3) %>% 
  summarise(sumv4 = sum(v4), .groups = "drop")

print(result)

输出结果：

# A tibble: 3 × 4
     v1    v2    v3 sumv4
  <dbl> <dbl> <dbl> <dbl>
1     1     0     5     2
2     2     1     5     1
3     3     2     4     1

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