如何用tidyverse语法删除符合多条件的数据框行？

首先给出样本数据集：

df <- data.frame(col1 = c("cat", "fox", "dog", "cat", "pig"),
                 col2 = c("lion", "tiger", "elephant", "dog", "cow"),
                 col3 = c("bird", "cow", "sheep", "fox", "dog"),
                 col4 = c("dog", "cat", "cat", "cow", "fox"))

正确实现方式1：使用if_any()（推荐） #

if_any()是tidyverse专为行级判断设计的函数，能逐行检查指定列中是否有任意一列满足条件，返回的逻辑向量正好适配filter()的需求：

library(tidyverse)

filtered_df <- df %>%
  filter(!(col1 == "cat" & if_any(col2:col4, ~ .x %in% c("dog", "fox", "cow"))))

运行后filtered_df会保留第2、3、5行，符合需求。

正确实现方式2：使用rowSums() #

通过rowSums()统计每行中满足条件的列数，只要数量大于0就说明该行符合删除条件：

filtered_df <- df %>%
  filter(!(col1 == "cat" & rowSums(across(col2:col4, ~ .x %in% c("dog", "fox", "cow"))) > 0))

原代码报错原因 #

你之前用any(across(...))的问题在于：across()返回的是包含多个逻辑列的数据框，any()会尝试对整个数据框做判断，而非逐行检查，这就导致了“仅适用于全数值变量数据框”的错误。而if_any()或rowSums()都是针对行级的操作，能正确生成每行的逻辑判断结果。

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