在dplyr中傳遞列名作爲變量

Question

這個問題的變體已經被問了很多，我也讀過關於NSE的內容。 但我無法弄清楚這一點。

這很簡單：

library(dplyr) 
data(cars) 

cars %>% 
    group_by(speed) %>% 
    summarise(d = mean(dist)) 

現在我想用變量x傳遞DIST列意味着

x <- "dist"

當然，這並不工作：

cars %>% 
    group_by(speed) %>% 
    summarise(d = mean(x)) 

所以我用SE版總結：

cars %>% 
    group_by(speed) %>% 
    summarise_(d = mean(x)) 

好，不工作，所以我要補充~還有：

cars %>% 
    group_by(speed) %>% 
    summarise_(d = ~mean(x)) 

仍然無法正常工作，但如果使用dist代替x：

cars %>% 
    group_by(speed) %>% 
    summarise_(d = ~mean(dist)) 

該作品，但不使用x。

cars %>% 
    group_by(speed) %>% 
    summarise_(d = ~mean(~x)) 

這也行不通。

我基本上不知道如何使這項工作，或爲什麼失敗。

Answer 1

cars %>% 
    group_by(speed) %>% 
    summarise_each_(funs(mean), vars(matches(x)))