group_by使用整齐的评估语义的字符向量

Question

我曾经这样做，使用group_by_

library(dplyr)
group_by <- c('cyl', 'vs')
mtcars %>% group_by_(.dots = group_by) %>% summarise(gear = mean(gear))

但现在group_by_已被弃用。我不知道如何使用tidy evaluation framework。

Answer 1

group_by_at有group_by变体：

library(dplyr)
group_by <- c('cyl', 'vs')
mtcars %>% group_by_at(group_by) %>% summarise(gear = mean(gear))

上面是它的简化版本：

mtcars %>% group_by_at(vars(one_of(group_by))) %>% summarise(gear = mean(gear))

在vars内你可以使用任何dplyr方式的选择变量：

mtcars %>%
    group_by_at(vars(
        one_of(group_by) # columns from predefined set
        ,starts_with("a") # add ones started with a
        ,-hp # but omit that one
        ,vs # this should be always include
        ,contains("_gr_") # and ones with string _gr_
    )) %>%
    summarise(gear = mean(gear))

Answer 2

将字符向量转换为符号列表并将其拼接

df %>% group_by(!!! syms(group_by))