Đi qua chuỗi như các đối số trong động từ dplyr

Question

Tôi muốn để có thể xác định đối số cho dplyr động từ

condition <- "dist > 50" 

và sau đó sử dụng các chuỗi trong dplyr chức năng:

require(ggplot2) 
ds <- cars 
ds1 <- ds %>% 
    filter (eval(condition)) 
ds1 

Nhưng nó ném do lỗi

Error: filter condition does not evaluate to a logical vector. 

Mã nên đánh giá là:

ds1<- ds %>% 
    filter(dist > 50) 
    ds1 

Hệ quả là:

DS1

speed dist 
1  14 60 
2  14 80 
3  15 54 
4  18 56 
5  18 76 
6  18 84 
7  19 68 
8  20 52 
9  20 56 
10 20 64 
11 22 66 
12 23 54 
13 24 70 
14 24 92 
15 24 93 
16 24 120 
17 25 85 

Câu hỏi:

Làm thế nào để vượt qua một chuỗi như một cuộc tranh cãi trong một động từ dplyr?

Answer 1

Trong khi họ đang làm việc trên đó, đây là một cách giải quyết bằng if:

library(dplyr) 
library(magrittr) 

ds <- data.frame(attend = c(1:5,NA,7:9,NA,NA,12)) 

filter_na <- FALSE 

filtertest <- function(x,filterTF = filter_na){ 
    if(filterTF) x else !(x) 
} 

ds %>% 
    filter(attend %>% is.na %>% filtertest) 

    attend 
1  1 
2  2 
3  3 
4  4 
5  5 
6  7 
7  8 
8  9 
9  12 

filter_na <- TRUE 
ds %>% 
    filter(attend %>% is.na %>% filtertest) 

    attend 
1  NA 
2  NA 
3  NA 

Answer 2

Trong phiên bản tiếp theo của dplyr, nó có thể sẽ làm việc như thế này:

condition <- quote(dist > 50) 

mtcars %>% 
    filter_(condition)