multidplyrのパーティション関数に列名のベクトルを渡す方法

Question

multidplyrのパーティション関数に問題があります。 私の目的は、集計統計を列名のグループで見つけることです。 例：今すぐ

rcols <- c("cyl","am","vs") 

私はrcolsオブジェクトの上に使用して要約統計を探していました。 次の行を使用してdplyrで実行できます。

df <- mtcars %>% group_by(.dots=rcols) %>% summarise(Mean=mean(mpg)) 

ここでは、multidplyrパッケージを使用して同じことを行いたいと考えました。

df <- mtcars %>% partition(rcols) %>% summarise(Mean=mean(mpg)) %>% collect() 

しかし、上記の行は期待どおりに機能していません。

この問題についてお手伝いできますか？

ありがとうございます。

Answer 1

必要なクエリでテキストを作成する必要があります。

library(dplyr) 
library(multidplyr) 

rcols <- c("cyl","am","vs") 
k1<-paste("d1<-mtcars%>%partition(",paste(rcols,collapse=","),")%>%summarise(Mean=mean(mpg))%>%collect()",sep="") 
k2<-eval(parse(text=k1))