Question

我想了解如何将表示表达式的字符串传递给dplyr，以便将字符串中提到的变量计算为数据帧中列的表达式。关于此主题的main vignette涵盖了传入语句，并且根本不讨论字符串。

很明显，在表示表达式时，quosures比字符串更安全，更清晰，所以当使用quosures时我们当然应该避免使用字符串。但是，在使用R生态系统之外的工具（例如javascript或YAML配置文件）时，通常需要使用字符串而不是quosures。

例如，假设我想要一个使用用户/调用者传入的表达式进行分组计数的函数。正如所料，以下代码不起作用，因为dplyr使用非标准评估来解释group_by的参数。

library(tidyverse)

group_by_and_tally <- function(data, groups) {
  data %>%
    group_by(groups) %>%
    tally()
}

my_groups <- c('2 * cyl', 'am')
mtcars %>%
  group_by_and_tally(my_groups)
#> Error in grouped_df_impl(data, unname(vars), drop): Column `groups` is unknown

在dplyr 0.5中，我们将使用标准评估（例如group_by_(.dots = groups)）来处理这种情况。既然下划线动词已被弃用，我们应该如何在dplyr 0.7中做这类事情呢？

在只是列名的表达式的特殊情况下，我们可以使用this question的解决方案，但它们不适用于2 * cyl等更复杂的表达式，它们不仅仅是列名

Answer 1

重要的是要注意，在这个简单的例子中，我们可以控制表达式的创建方式。因此，传递表达式的最佳方法是使用quos()直接构造和传递quosures：

library(tidyverse)
library(rlang)

group_by_and_tally <- function(data, groups) {
  data %>%
    group_by(UQS(groups)) %>%
    tally()
}

my_groups <- quos(2 * cyl, am)
mtcars %>%
  group_by_and_tally(my_groups)
#> # A tibble: 6 x 3
#> # Groups:   2 * cyl [?]
#>   `2 * cyl`    am     n
#>       <dbl> <dbl> <int>
#> 1         8     0     3
#> 2         8     1     8
#> 3        12     0     4
#> 4        12     1     3
#> 5        16     0    12
#> 6        16     1     2

但是，如果我们以字符串的形式从外部源接收表达式，我们可以先解析表达式，然后将它们转换为quosures：

my_groups <- c('2 * cyl', 'am')
my_groups <- my_groups %>% map(parse_quosure)
mtcars %>%
  group_by_and_tally(my_groups)
#> # A tibble: 6 x 3
#> # Groups:   2 * cyl [?]
#>   `2 * cyl`    am     n
#>       <dbl> <dbl> <int>
#> 1         8     0     3
#> 2         8     1     8
#> 3        12     0     4
#> 4        12     1     3
#> 5        16     0    12
#> 6        16     1     2

同样，如果我们从外部源获取表达式作为字符串，我们应该只这样做 - 否则我们应该直接在R源代码中进行查询。

Answer 2

使用字符串很有吸引力，但使用表达式几乎总是更好。现在您已经准备好了，您可以轻松地以灵活的方式构建表达式：

lhs <- "cyl"
rhs <- "disp"
expr(!!sym(lhs) * !!sym(rhs))
#> cyl * disp

vars <- c("cyl", "disp")
expr(sum(!!!syms(vars)))
#> sum(cyl, disp)

Answer 3

软件包friendlyeval可以帮助您：

library(tidyverse)
library(friendlyeval)

group_by_and_tally <- function(data, groups) {
  data %>%
    group_by(!!!friendlyeval::treat_strings_as_exprs(groups)) %>%
    tally()
}

my_groups <- c('2 * cyl', 'am')
mtcars %>%
  group_by_and_tally(my_groups)

# # A tibble: 6 x 3
# # Groups:   2 * cyl [?]
# `2 * cyl`    am     n
# <dbl> <dbl> <int>
# 1         8     0     3
# 2         8     1     8
# 3        12     0     4
# 4        12     1     3
# 5        16     0    12
# 6        16     1     2

如何将表示表达式的字符串传递给dplyr 0.7动词？

3 个答案: