如何将均值函数转换为R中的字符串

Question

嗨，我正在编写一个函数，我的输入可以包含这样的函数列表

temp（平均值，总和...）

函数看起来像这样：

temp <- function(funs = NULL){

mtcars %>%
  dplyr::group_by(cyl) %>%
  dplyr::summarise_if(is.numeric,funs,na.rm =TRUE)

}

输出将具有xx_fn1，xx_fn2等，但我希望列名称为xx_mean，xx_sum。

尝试了deparse(substitute(funs))，但没有任何效果。

请帮助！

Answer 1

该功能还可以（除了我认为拼写错误的mtcars名称之外）。您只需在函数中使用funs()函数（就像在summarise_if()中一样），例如

temp(funs(mean = mean))