R语言中如何使用函数式编程处理函数列表或向量？

我想用函数式编程对数据集/模拟计算不同的汇总统计量，先写了一个能正常运行的简单示例：

choose_summary <- function(f) f(1:100)
choose_summary(mean)
choose_summary(median)
choose_summary(max)

但当尝试用函数列表处理时，代码无法按预期工作：

sum_fun_list <- list(mean, max, median)
choose_summary(sum_fun_list [1])

报错信息：

Error in f(1:100) : could not find function "f"

我试过unlist()、as.function()等方法，但都无效，请问该如何解决？

问题原因 #

用sum_fun_list[1]取到的是长度为1的子列表，而非列表内的函数对象。R中列表的单括号[]返回的是子列表，双括号[[]]才会提取列表中的单个元素。

解决方法 #

1. 提取单个函数传递

使用双括号[[]]提取列表里的函数：

choose_summary(sum_fun_list[[1]])

2. 批量处理整个函数列表

如果需要一次性处理所有函数，用lapply（基础R）或purrr::map（tidyverse工具）：

# 基础R实现
lapply(sum_fun_list, choose_summary)

# tidyverse风格（需先安装加载purrr包）
library(purrr)
map(sum_fun_list, choose_summary)

以上两种方式都能正常返回对应汇总统计量的结果。

内容的提问来源于stack exchange，提问作者this_is_not_easy