dplyr中group_by后结合if条件实现summarize差异化计算的问题求助

首先，咱们来分析你遇到的问题：你的代码报错主要是两个原因——语法错误和do函数的环境问题。do函数在dplyr里已经不是推荐用法了，而且你写的if语句括号位置不对，同时在do的代码块里，summarize无法正确识别result变量，因为do的执行环境和管道的环境不一致。

你的核心需求很明确：

• 先对数据集按id, interval, category去重，每个分组保留一条记录
• 按id, interval分组后：
  • 当interval > 1时，对该分组内的result求和，只保留一条汇总记录
  • 当interval <= 1时，保留该分组内所有原记录的result值

下面给你两种可行的解决方案：

方案一：分情况处理再合并（直观易懂） #

这种方法把两种条件的逻辑分开处理，最后合并结果，非常容易理解和调试：

library(dplyr)

# 第一步：先完成去重操作
score_distinct <- score %>% 
  distinct(id, interval, category, .keep_all = TRUE)

# 处理interval <= 1的情况：直接保留原记录，统一列名为sumresult
interval_1_data <- score_distinct %>% 
  filter(interval <= 1) %>% 
  mutate(sumresult = result)

# 处理interval > 1的情况：分组求和，每个(id, interval)只留一条记录
interval_gt1_data <- score_distinct %>% 
  filter(interval > 1) %>% 
  group_by(id, interval) %>% 
  summarize(sumresult = sum(result), .groups = "drop") %>% 
  # 如果不需要category列，可以删掉这行；需要的话用NA填充
  mutate(category = NA_integer_)

# 合并两个部分的结果，并按顺序排列
final_result <- bind_rows(interval_1_data, interval_gt1_data) %>% 
  arrange(id, interval, category)

# 查看结果
print(final_result)

方案二：用group_modify实现（管道式简洁写法） #

如果你想在一个管道里完成所有操作，可以用group_modify函数，它能根据每个分组的条件返回不同结构的结果：

library(dplyr)

final_result <- score %>% 
  # 先去重
  distinct(id, interval, category, .keep_all = TRUE) %>% 
  # 按id和interval分组
  group_by(id, interval) %>% 
  # 对每个分组执行自定义逻辑
  group_modify(function(group_data, group_keys) {
    # group_keys里存储当前分组的id和interval值
    if (group_keys$interval > 1) {
      # 求和，返回一行汇总数据
      tibble(sumresult = sum(group_data$result), category = NA_integer_)
    } else {
      # 保留原记录的category和result值
      tibble(category = group_data$category, sumresult = group_data$result)
    }
  }) %>% 
  # 取消分组
  ungroup() %>% 
  # 按顺序排列
  arrange(id, interval, category)

# 查看结果
print(final_result)

为什么你的原代码报错？ #

1. 语法错误：你的if语句括号位置不正确，正确的写法应该是do(if(.$interval[1] > 1) { ... } else { ... })——因为.$interval是整个分组的interval向量，需要取第一个元素（同一分组内interval值相同）。
2. 环境问题：do函数的执行环境和dplyr管道的环境有差异，导致summarize无法找到result变量。现在dplyr更推荐用group_modify或者分情况处理的方式来替代do。

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