r - 将 dplyr `filter()` 的过滤器存储在变量中

Question

我想在同一组条件下过滤多个数据帧。所以我想将这些过滤器设置为 filter() 调用之外的变量。

例如

mtcars %>%
  filter(cyl > 4, disp > 100)

我尝试这样做:

filters <- c(cyl > 4, disp > 100)
mtcars %>%
  filter(filters)

但这不起作用，因为当我设置 filters 变量时，它会查找数据帧列。

> filters <- c(cyl > 4, disp > 100)
Error: object 'cyl' not found

实现这一目标的最佳方法是什么？

Answer 1

rlang 包允许您创建未计算的表达式，然后可以使用特殊的 !! 表示法进行交换。如果您使用 dplyr，则已经加载了 rlang 的关键部分。请注意，对于filter，最好明确组合多个条件，而不是依赖filter对多个参数的隐式“与”。

my.filter <- quo(cyl > 4 & disp > 100)

filter(mtcars, !!my.filter)

    mpg cyl  disp  hp drat    wt  qsec vs am gear carb
1  21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4
2  21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4
3  21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1
4  18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2
5  18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1
6  14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4
7  19.2   6 167.6 123 3.92 3.440 18.30  1  0    4    4
8  17.8   6 167.6 123 3.92 3.440 18.90  1  0    4    4
9  16.4   8 275.8 180 3.07 4.070 17.40  0  0    3    3

正如 Artem 指出的，您可以将逗号符号与复数 quos 函数和 !!! 运算符一起使用:

my.filter <- quos(cyl > 4, disp > 100)

filter(mtcars, !!!my.filter)