如何让这个函数与 r 中的管道一起工作？

【问题标题】：How to get this function to work with the pipe in r?如何让这个函数与 r 中的管道一起工作？
【发布时间】：2022-06-18 00:00:25
【问题描述】：

我创建了这个函数，它可以快速执行一些汇总操作（平均值、中值、几何平均值并按降序排列）。这是函数：

summarize_values <- function(tbl, variable){
  tbl %>% 
    summarize(summarized_mean = mean({{variable}}),
              summarized_median = median({{variable}}),
              geom_mean = exp(mean(log({{variable}}))),
              n = n()) %>% 
    arrange(desc(n))
}

我可以做到，而且效果很好：

summarize_values(data, lifeExp)

但是，我希望能够做到这一点：

data %>% 
  select(year, lifeExp) %>% 
  summarize_values()

或类似的东西

data %>% 
   summarize_values(year, lifeExp)

我缺少什么来完成这项工作？

谢谢

【问题讨论】：

• 该函数只接受一个输入变量，即mtcars %>% summarize_values(gear)

标签： r function tidyverse