在R语言filter()中使用any_of()报错，寻求解决方案

报错原因 #

any_of() 是dplyr的选择类函数，仅适用于select()、rename()这类用来挑选列的场景，filter()是行筛选函数，不支持直接调用any_of()，所以会抛出「any_of() must be used within a selecting function」的错误。

可行解决方案 #

你不需要显式指定所有预期列名，通过动态筛选当前数据框中存在的目标列，再配合if_any()（filter专用的多列条件判断函数）就能实现兼容列存在/不存在的非指定性处理。修改你的代码如下：

data("iris")

iris %>%
  mutate(Sepal.Area = Sepal.Length*Sepal.Width,
         Petal.Area = Petal.Length*Petal.Width) %>%
  filter(
    if_all(starts_with("Sepal"), ~ . > 4),
    # 先取目标列与当前数据框列的交集，再用if_any判断条件
    if_any(intersect(c("Petal.Area", "Petal.Diameter"), colnames(.)), ~ . > 2)
  )

代码说明 #

• intersect(c("Petal.Area", "Petal.Diameter"), colnames(.))：自动筛选出当前数据框中实际存在的目标列（例子里只有Petal.Area存在，Petal.Diameter会被排除）
• if_any(...)：对筛选出的列应用条件~ . > 2，只要该行任意一列满足条件，就会被保留

扩展场景 #

如果你的目标列名是动态生成的（比如从变量传入），这个方法同样适用，只需要把列名向量换成对应的变量即可。

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