基于分组过滤R数据框行：保留含day>4的分组所有行

你遇到的问题很典型——你需要基于cc、odd、tree1、tree2这几列分组，只要分组内存在任意一行满足day > 4，就保留该分组的所有行；反之则删除整个分组。你之前的代码filter(day > 4)是直接筛选组内符合day >4的单行，而不是判断整个分组是否符合保留条件，所以才会把组内day<=4的行都删掉，不符合你的需求。

正确的解决方案 #

我们可以用dplyr中的any()函数来判断分组内是否存在满足条件的行，再结合filter()保留整个分组：

library(dplyr)

# 原始数据框
df <- data_frame( 
  cc = c('BB', 'BB', 'BB', 'BB','BB', 'BB','BB', 'BB', 'DD', 'DD', 'DD', 'DD', 'DD', 'DD', 'DD', 'DD', 'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ'), 
  odd = c(3434, 3434, 3434, 3434, 3435, 3435, 3435, 3435, 3434, 3434, 3434, 3434, 3435, 3435, 3435, 3435, 3434, 3434, 3434, 3434, 3435, 3435, 3435, 3435), 
  tree1 = c('ASP', 'ASP', 'ASP', 'ASP', 'SAP', 'SAP', 'SAP', 'SAP', 'ASP', 'ASP', 'ASP', 'ASP', 'SAP', 'SAP', 'SAP', 'SAP', 'ASP', 'ASP', 'ASP', 'ASP', 'SAP', 'SAP', 'SAP', 'SAP'), 
  tree2 = c('ATK', 'ATK','ATK','ATK','ATK','ATK','ATK','ATK', 'ATK', 'ATK','ATK','ATK','ATK','ATK','ATK','ATK', 'ATK', 'ATK','ATK','ATK','ATK','ATK','ATK','ATK'), 
  day = c(1, 2, 3, 4, 3, 4, 5, 6, 2, 3, 4, 5, 1, 3, 5, 7, 1, 2, 6, 8, 2, 4, 6, 8) 
)

# 修正后的分组过滤代码
df1 <- df %>% 
  arrange(cc, odd, tree1, tree2, day) %>% 
  group_by(cc, odd, tree1, tree2) %>% 
  filter(any(day > 4)) %>%  # 关键：判断组内是否存在day>4的行
  ungroup()  # 可选：取消分组，回到普通数据框

代码解释 #

• any(day > 4)：在每个分组内检查是否有至少一行满足day > 4，如果有则返回TRUE，否则返回FALSE。
• filter()接收这个布尔值，当为TRUE时保留整个分组的所有行，FALSE则删除整个分组。
• ungroup()是可选操作，如果你后续不需要继续分组操作，建议取消分组避免意外问题。

验证结果 #

运行上述代码后，df1的结构和内容完全匹配你期望的df2：

# 查看结果
df1

输出会和你提供的df2一致，保留了所有包含day>4行的分组的全部数据，同时删除了BB-3434-ASP-ATK这个没有day>4行的分组。

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