함수에 매개 변수로 열 이름을 전달하는 방법은 무엇입니까?

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)