R/dplyr/complex filter in function by string

Question

我正在尝试将具有多个参数的过滤器作为字符串移交给函数内的 dplyr::filter。到目前为止我看到的答案都是关于单个过滤器参数，而不是多个。

例子：

myfil <- function(df, fil) {
    quo_fil <- enquo(fil)
    df <- filter(df, !! quo_fil)
    df 
}

set.seed(25)
df <- data.frame(a = sample(10, 10), b = sample(10, 10), c = sample(10, 10))

#works
filter(df, a > 3 & b > 2 & c < 8)

  a  b c
1 5  4 1
2 7 10 5
3 9  5 2
4 6  6 3

# does not work
f <- "a > 3 & b > 2 & c < 8"

myfil(df, f)

Answer 1

基于this 的回答，您只需将普通字符串传递给filter_ 函数，它就可以正常工作。

myfil <- function(df, fil) {
   df <- filter_(df, fil)
   df   
}

我的结果：

> myfil(df, 'a > 3 & b > 2 & c < 8')
  a b c
1 8 9 7

Answer 2

问题不在于您使用多个条件这一事实。您可以看到只有一个条件会遇到相同的问题。问题是 enquo 需要一个裸表达式，而不是字符串。所以这会返回预期的结果：

myfil(df, a > 3 & b > 2 & c < 8)

  a  b c
1 5  4 1
2 7 10 5
3 9  5 2
4 6  6 3

如果要处理字符串，可以使用rlang::parse_expr 将字符串转换为!! 使用的表达式：

myfil <- function(df, fil) {
  quo_fil <- rlang::parse_expr(fil)
  filter(df, !!quo_fil)
}

f <- "a > 3 & b > 2 & c < 8"
myfil(df, f)

  a  b c
1 5  4 1
2 7 10 5
3 9  5 2
4 6  6 3