私は、ローカル関数の例をdplyrのGROUP_BYを使用しようとしています機能でdplyr GROUP_BY

Question

を使用した：「...グループへの未知の変数をによって：X」

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

testFunction(iris, Species) 

と私はエラーを取得する はI」私はgroup_by_を試してみて、それは私にデータセット全体の要約を与えます。 誰かが私がこれをどのように修正できるかを手がかりにしていますか？

ありがとうございます！

Answer 1

enquoは、文字列を受け取り、（UQ又は!!）をunquotingによって評価取得したquosureに変換dplyrから新しいenquoで動作する1つの方法は、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") 

私はget(x)にxを変更し、testFunction(iris,...)で"Species"からSpecies。ここ