如何将列名作为参数传递给函数？

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)