使用函数的参数命名要“聚集”的列

Question

我正在使用下面的代码将各种统计函数应用于数据框。那部分正在运作;但是，我希望能够“收集”计算的统计信息，并为value列提供一个我传递给函数的名称。下面的代码始终将value列标记为stat_name，而不是默认值stat或我传入的值。任何帮助都将不胜感激。

library(purrr)
library(tidyr)
library(dplyr)

calc_stats <- function (data_in = combined_stock_histories, fun_to_apply, stat_name = "stat"){

 temp <- map_df(select(data_in, -Date), fun_to_apply, na.rm = TRUE)

 temp <- gather( temp, key = "ticker", value = stat_name)
}