Использование dplyr group_by в функции

Вот один из способов работы с новым enquo из dplyr, где enquo принимает строку и преобразуется в quosure, который оценивается путем отмены кавычек (UQ или !!) в group_by, mutate, summarise и т. Д.

library(dplyr)
testFunction <- function(df, x) {
 x <- enquo(x)
  df %>%
    group_by(!! x) %>%
     summarize(mean.Petal.Width = mean(Petal.Width))
 }

testFunction(iris, Species)
# A tibble: 3 x 2
#     Species mean.Petal.Width
#      <fctr>            <dbl>
#1     setosa            0.246
#2 versicolor            1.326
#3  virginica            2.026

У меня так работает:

testFunction <- function(df, x) {
                      df %>%
                         group_by(get(x)) %>%
                         summarize(mean.Petal.Width = mean(Petal.Width))
                 }

testFunction(iris,"Species")

Я изменил x на get(x) и Species на "Species" в testFunction(iris,...).