R 列表中的摘要，包含使用地图所需的所有信息

我有一个包含6个元素的列表，需要一些汇总统计数据。每个元素有不同数量的观察值，但都有相同的9个变量。它们是使用split创建的，因此每个元素都是不同的处理方式。我想创建一个表，其中包含：n、min、max、mean、SD、第5个分位数和第95个分位数）

我正在为函数

map（）

使用purrr包，它类似于

lappy（）

，但更容易调试

发件人：

lappy（测试、总结）

我可以得到min，max，mean

n、 我可以通过以下方式获得sd：

mdl_summary= map(test,col_summary, sd) %>%
    lapply(., setNames, nm=colnames  %>%
    map(.,t) %>%
    lapply(., function(x)  {
      row.names(x)=deparse(substitute(sd))
      return (x)
    })

col_summary是另一个功能代码：

col_summary <- function(df, fun) {
  output <- vector("numeric", length(df))
  for (i in seq_along(df)) {
    output[[i]] <- fun(df[[i]])
  }
  output
}

---

我只需要修改我创建的col_summary函数以包含额外的参数：

col_summary <- function(df, fun, ...) {
  output <- vector("numeric", length(df))
  for (i in seq_along(df)) {
    output[[i]] <- fun(df[[i]], ...)
  }
  output
}

---

col\u元素摘要列表？什么类型的元素？向量？矩阵？数据帧？请提供一些可复制示例的数据。对列表中的一些元素使用
dput（）。有了一些数据，这个问题在几个小时前就已经得到了回答！
col_summary <- function(df, fun, ...) {
  output <- vector("numeric", length(df))
  for (i in seq_along(df)) {
    output[[i]] <- fun(df[[i]], ...)
  }
  output
}