在dqr与base r函数中的整洁求值

发布于11月12日

我试图在dplyr和base r函数中汇总数据，但没有得到预期的结果，请告诉我为什么

例如，在下面的dplyr示例中，我try 将字符串作为列名，它很有效

map(c('Sepal.Length'), function(x) {
browser()  
  x <- sym(x)
  iris %>% group_by(Species) %>% summarise(mean=mean( !!x ))
})


[[1]]
# A tibble: 3 × 2
  Species     mean
  <fct>      <dbl>
1 setosa      5.01
2 versicolor  5.94
3 virginica   6.59

但是，如果我使用Aggregate之类的基数r函数try 相同的方法，则失败

map(c('Sepal.Length'), function(x) {
  # browser()  
  x <- sym(x)
  aggregate(!!x ~ Species, data=iris, FUN= mean)
})


Error in `map()`:
ℹ In index: 1.
Caused by error in `!x`:
! invalid argument type

推荐答案

不能在基R公式中使用!!运算符(也称为注入运算符或bang-bang运算符或double-bang运算符)-它不是基R语法的一部分，而是特定于某些tidyverse函数的基R语法的扩展.它只能在数据屏蔽参数、动态点或inject内部使用.在这些上下文之外，如果您试图使用它来消除引用符号，您将得到一个错误.如果你在R控制台中输入?rlang::`topic-inject-out-of-context` ，你可以阅读更多.

您可以使用以R为基数的reformulate来轻松地从字符串变量构建公式:

purrr::map(c('Sepal.Length'), function(x) {
  aggregate(reformulate('Species', x), data = iris, FUN = mean)
})
#> [[1]]
#>      Species Sepal.Length
#> 1     setosa        5.006
#> 2 versicolor        5.936
#> 3  virginica        6.588