在函數中使用dplyr group_by

Question

我試圖在本地函數中使用dplyr的group_by，例如：

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

testFunction(iris, Species)

我得到一個錯誤“...未知變量分組依據：x”我嘗試了group_by_，它給了我整個數據集的摘要。 有人知道如何解決這個問題嗎？

提前致謝！

Answer 1

這里是新的工作方法之一enquo從dplyr ，其中enquo采取串並轉換成quosure其獲取評估由unquoting（ 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

Answer 2

我讓它像這樣工作：

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

testFunction(iris,"Species")

我將x更改為get(x) ，將Species更改為testFunction(iris,...) "Species" testFunction(iris,...) 。