R中如何使用for循环或其他方法结合dplyr筛选汇总dataframe

你写的循环代码有5个明显问题：

• 语法缺失：for (i in c(1,3,5,10) 缺少右括号，正确写法为 for (i in c(1,3,5,10))
• 判断符号错误：相等判断需要用双等号==，你写的单等号=是赋值操作
• 变量引用错误：你把循环变量i写在了引号里"i"，相当于匹配固定字符串"i"，不是调用i的实际值
• 类型不匹配：示例数据中Category2是字符类型，循环变量i是数值类型，直接判断会匹配失败
• 无结果存储逻辑：循环内的计算结果没有赋值给变量，执行完就会释放，自然看不到返回值

方案1：修复后的for循环 #

library(dplyr)
# 初始化列表存储所有结果
result <- list()
for (i in c(1,3,5,10)){
  tmp_res <- df %>%
    filter(Category1=="FilterMe" & Category2 == as.character(i)) %>%
    summarize(result=sum(Value))
  result[[as.character(i)]] <- tmp_res
}
# 查看所有汇总结果
print(result)

方案2：dplyr分组汇总（最推荐，无需循环） #

直接筛选符合要求的行后按Category2分组汇总，一次性得到所有值的结果，返回结构化数据框：

library(dplyr)
# 定义要筛选的Category2列表
target_c2 <- c(1,3,5,10)
res_df <- df %>%
  # 同时满足Category1要求、Category2在目标列表内两个条件
  filter(Category1 == "FilterMe", Category2 %in% as.character(target_c2)) %>%
  # 按Category2分组
  group_by(Category2) %>%
  # 分组求和
  summarize(sum_value = sum(Value), .groups = "drop")

print(res_df)

方案3：purrr迭代实现（适合复杂逻辑场景） #

如果后续迭代逻辑更复杂，可以用purrr的map系列函数替代for循环，代码更简洁：

library(dplyr)
library(purrr)
target_c2 <- c(1,3,5,10)
res_df <- map_dfr(target_c2, function(i){
  df %>%
    filter(Category1 == "FilterMe", Category2 == as.character(i)) %>%
    summarize(Category2 = as.character(i), sum_value = sum(Value))
})

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