如何將列名作爲參數傳遞給函數？

Question

這裏是一個玩具例子：

df <- data.frame(user=c('a','b'), rating=c(1,2), age=c(17,33)) 

rating <- function(df, var){x <- df %>% summarise(sum(var))} 

rating(df,age) 

當我執行的功能，我得到以下錯誤：

Error in summarise_impl(.data, dots) : object 'age' not found

如何通過列名作爲參數傳遞給函數？

Answer 1

library(tidyverse) 

df <- data.frame(user=c('a','b'), 
       rating=c(1,2), 
       age=c(17,33)) 

rating <- function(df, var){ 
    var <- enquo(var) 
    df %>% summarise(sum(!!var)) 
    } 

x <- rating(df,age)