Question

我无法在dplyr中的过滤器表达式中使用公式或参数。

a_table <- data_frame(key = rep(letters[1:2], each = 2), 
  value = replace(runif(4), mod(1:4, 2) == 1, NA))

a_cond <- quo(not(is.na(value)))

filter(a_table, !!a_cond)

产生错误

Error in filter_impl(.data, dots) : invalid argument type

我已经阅读了关于NSE和dplyr编程的小插曲，并尝试了不同的调用：

a_cond <- interp(~not(is.na(value_)), value_ = as.name("value"))

但是没有真正把它钉在上面谢谢您的帮助。

会话信息是：

> sessionInfo()
R version 3.4.2 (2017-09-28)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 17.10

other attached packages:
 [1] rlang_0.1.1       readxl_1.0.0      aws.s3_0.3.3      magrittr_1.5     
 [5] dplyr_0.5.0       ggplot2_2.2.1     tidyr_0.6.1       dtplyr_0.0.2     
 [9] lazyeval_0.2.0    purrr_0.2.2.2     data.table_1.10.4 feather_0.3.1    
[13] readr_1.1.0       lubridate_1.6.0   stringr_1.2.0

Answer 1

我们可以使用expr

a_cond <- rlang::expr(magrittr::not(is.na(value)))
filter(a_table, !!a_cond)
# A tibble: 2 x 2
#  key   value
#   <chr> <dbl>
#1 a     0.225
#2 b     0.519

或quosure，但请确保not函数来自magrittr

a_cond <- quo(magrittr::not(is.na(value)))
filter(a_table, !!a_cond)
# A tibble: 2 x 2
#   key   value
#  <chr> <dbl>
#1 a     0.225
#2 b     0.519

Answer 2

要解决状态问题，我必须使用install_github而不是update.packages进行更新。

但是，这并没有解决基于lazyeval::interp()的公式的问题。

为了实现这一点，我想出了如何使用等效的等价物。而不是

interp(~!is.na(value_), value_ = as.name("value"))

我做了

quo(!is.na( !!sym("value") ))

现在一切正常。

如何在dplyr动词R中传递公式或参数作为参数

2 个答案: