r - 有没有办法输入 dplyr::summarise 变量？

Question

这是一个我似乎无法解决的非标准评估问题。我想做一个输入列名并输出摘要的函数。对于此功能，重要的是summarise(name,...)可以将 分配为输入，如下所示：

mtcars %>% 
  summarise(mpg = mean(mpg))

这有效：

get <- function(col){
  mtcars %>% 
    summarise(mean = mean({{ col }}))
}

get(mpg)

但这不是，这就是我需要的。

get <- function(col){
  mtcars %>% 
    summarise({{ col }} = mean({{ col }}))
}

任何帮助是极大的赞赏。

Answer 1

使用:=符号分配列名

library(dplyr)

get_summarised<- function(df, col){
  df %>% summarise({{col}} := mean({{ col }}))
}

get_summarised(mtcars, mpg)
#       mpg
#1 20.09062