как использовать строковую переменную в качестве условия фильтра в dplyr

Question

У меня есть это:

cond <- "cyl == 4"
mtcars %>% filter_(cond)

, которое выдает предупреждение:

filter_ () устарело. Пожалуйста, используйте filter () вместо

Проблема в том, что я понятия не имею, как сделать то же самое с функцией filter ().

Я использую функции цитирования и удаления с выберите / измените, но кажется, что они работают только на столбцах. Как процитировать логическое условие?

Answer 1

Мы можем использовать rlang::parse_expr с eval

library(dplyr)
mtcars %>% filter(eval(rlang::parse_expr(cond)))

#    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
#4  32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1
#5  30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2
#6  33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1
#7  21.5   4 120.1  97 3.70 2.465 20.01  1  0    3    1
#8  27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1
#9  26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2
#10 30.4   4  95.1 113 3.77 1.513 16.90  1  1    5    2
#11 21.4   4 121.0 109 4.11 2.780 18.60  1  1    4    2

Или с использованием eval и parse

mtcars %>% filter(eval(parse(text = cond)))