Передача имени столбца внутри функции с помощью dplyr

Question

Я знаю, используя lazyeval внутри функции для того, чтобы ссылаться на имена столбцов с dplyr, но я застрял. В общем случае при создании функции, которая использует dplyr, который также ссылается на имена столбцов из аргументов функции, что является самым идиоматическим способом достижения этого? Благодарю.

library(lazyeval) 

## Create data frame 
df0 <- data.frame(x=rnorm(100), y=runif(100)) 

########################################## 
## Sample mean; this way works 
########################################## 
df0 %>% 
    filter(!is.na(x)) %>% 
    summarize(mean=mean(x)) 

########################################## 
## Sample mean via function; does not work 
########################################## 
dfSummary2 <- function(df, var_y) { 
    p <- df %>% 
     filter(!is.na(as.name(var_y))) %>% 
     summarize(mean=mean(as.name(var_y))) 
    return(p) 
} 

dfSummary(df0, "x") 
# mean 
# 1 NA 
# Warning message: 
# In mean.default("x") : argument is not numeric or logical: returning NA 

########################################## 
## Sample mean via function; also does not work 
########################################## 
dfSummary <- function(df, var_y) { 
    p <- df %>% 
     filter(!is.na(var_y)) %>% 
     summarize(mean=mean(var_y)) 
    return(p) 
} 

dfSummary(df0, "x") 
# mean 
# 1 NA 
# Warning message: 
# In mean.default("x") : argument is not numeric or logical: returning NA 

Answer 1

Комментарий использовать summarize_ и filter_ правильное направление при использовании dplyr и более подробная информация с vignette("nse").

Хотя с данной проблемой, это обеспечит функцию, которая использует переменное имя столбца, не требуя dplyr

dfSummary <- function(df, var_y) { 
mean(df[[var_y]], na.rm = TRUE) 
} 

dfSummary(df0, "x") 
[1] 0.105659 

dfSummary(df0, "y") 
[1] 0.4948618