基于多列条件筛选DataFrame：移除符合规则的分组所有行

你的核心需求是：移除所有**存在至少一行满足number为1或2且col1/col2/col3任意一个为1**的pat_id分组，仅保留完全没有符合该条件行的分组。

原代码的问题 #

你写的filter(any(!(number <= 2 & (col1 == 1 | col2==1 | col3==1))))逻辑存在两个关键错误：

• 逻辑方向颠倒：any(!条件)表示分组内至少有一行不满足条件就保留，这和你需要的“全部分组行都不触发删除规则才保留”完全相反；
• NA值干扰：原数据中存在NA，col1 == 1遇到NA会返回NA，导致条件判断出现偏差。

正确代码 #

library(dplyr)

# 处理分组结构并执行筛选
df_clean <- df %>%
  ungroup() %>% # 先取消原有分组，避免结构异常
  group_by(pat_id) %>%
  filter(!any(number <= 2 & (col1 %in% 1 | col2 %in% 1 | col3 %in% 1))) %>%
  ungroup() # 可选：不需要保留分组状态时取消

代码说明 #

1. !any(条件)：表示分组内不存在任何一行满足该条件时，才保留整个分组，完全匹配你的需求；
2. %in% 1：替代==1，自动忽略NA值，只匹配实际等于1的情况，避免NA导致的判断错误；
3. 重新分组：先取消原有分组再重新分组，解决你提到的“大型数据集上失效”问题——部分grouped_df的特殊结构可能干扰筛选逻辑，重新分组可消除这类异常。

验证结果 #

用你提供的示例数据运行后，会保留pat_id=10613和pat_id=16220的所有行：

• 10613的前两行number=1/2时，col1分别为9和3，均不等于1，符合保留条件；
• 16220的所有number<=2的行col1都是9，也符合保留条件；
• 其他分组（10302、10482、16190）都存在满足删除条件的行，会被完全移除。

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