在 dplyr::filter 中传递字符串作为变量名

我使用 mtcars 数据集来说明我的问题。

例如，我想将数据子集到 4 缸汽车。我可以这样做：

mtcars %>% filter(cyl == 4)

在我的工作中，我需要传递一个字符串变量作为我的列名。例如：

var <- 'cyl'
mtcars %>% filter(var == 4)

我也做了：

mtcars %>% filter(!!var == 4)

在这两种情况下，我都得到了空数据框。

!! or UQ评估变量，所以mtcars %>% filter(!!var == 4)是相同的mtcars %>% filter('cyl' == 4)其中条件始终评估为 false；您可以通过打印来证明这一点!!var在过滤器函数中：

mtcars %>% filter({ print(!!var); (!!var) == 4 })
# [1] "cyl"
#  [1] mpg  cyl  disp hp   drat wt   qsec vs   am   gear carb
# <0 rows> (or 0-length row.names)

评估var to the cyl列，您需要转换var到一个符号cyl首先，然后评估符号cyl到一列：

Using rlang:

library(rlang)
var <- 'cyl'
mtcars %>% filter((!!sym(var)) == 4)

#    mpg cyl  disp  hp drat    wt  qsec vs am gear carb
#1  22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1
#2  24.4   4 146.7  62 3.69 3.190 20.00  1  0    4    2
#3  22.8   4 140.8  95 3.92 3.150 22.90  1  0    4    2
# ...

Or use as.symbol/as.name来自baseR：

mtcars %>% filter((!!as.symbol(var)) == 4)

mtcars %>% filter((!!as.name(var)) == 4)