如何用dplyr过滤含特定值的分组并保留NA值

一、核心问题：过滤掉包含特定值的整个分组 #

你之前的代码filter(y != 73)只是在每个分组内删除y等于73的单一行，而非移除整个分组。要实现只要分组里存在y=73就删掉该分组所有行，需要用any()函数判断分组内是否存在目标值，再取反过滤：

首先修正原始数据框的定义（字符值需要加引号）：

df <- data.frame(x = c("a","a","a","b","b","b","c","c","c"),
                 y = c(73,6,6,10,10,10,4,4,4))

正确的过滤代码：

df2 <- df %>%
  group_by(x) %>%
  filter(!any(y == 73)) %>% # 判断分组内是否有y=73，取反保留无73的分组
  ungroup() # 可选，取消分组状态，方便后续操作

运行后x=a的分组会被完全过滤，结果只保留x=b和x=c的所有行。

二、处理y列含NA的情况 #

如果y列存在NA，直接用any(y ==73)会因为NA的存在返回NA，导致filter误删包含NA但无73的分组。需要在any()中加入na.rm = TRUE忽略NA值，确保只有存在y=73的分组才被过滤：

示例含NA的数据框：

df_with_na <- data.frame(x = c("a","a","a","d","d","d"),
                         y = c(73,6,NA,NA,5,NA))

带NA处理的过滤代码：

df3 <- df_with_na %>%
  group_by(x) %>%
  filter(!any(y == 73, na.rm = TRUE)) %>% # 忽略NA，仅过滤含73的分组
  ungroup()

运行后x=a的分组被过滤，x=d的分组（含NA但无73）会被完整保留。

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