如何在R中高效创建多个同结构的数据框或矩阵？

你现在手动逐个创建分位数矩阵的方式，在数据框数量增多（比如超过100个）时会非常繁琐，这里提供一套高效的批量处理方案：

步骤1：整合目标数据框到列表 #

先把命名规则统一的outDf_1到outDf_N收集到一个列表里，避免逐个调用：

# 把N替换成实际需要处理的数据框数量
outDf_list <- mget(paste0("outDf_", 1:N))

步骤2：封装分位数矩阵生成逻辑 #

把重复的矩阵生成代码封装成函数，提升复用性：

基础循环版本 #

create_quantile_matrix <- function(df) {
  q_matrix <- matrix(NA, nrow = ncol(df), ncol = 3)
  for(jj in 1:ncol(df)) {
    q_matrix[jj,] <- quantile(df[,jj], probs = c(.5, .025, .975))
  }
  return(q_matrix)
}

简化的apply版本（更紧凑高效） #

用apply替代循环，精简代码：

create_quantile_matrix <- function(df) {
  # t()转置结果，让行对应原数据框的列，列对应分位数
  t(apply(df, 2, quantile, probs = c(.5, .025, .975)))
}

步骤3：批量生成所有分位数矩阵 #

用lapply遍历列表，批量生成结果：

quantileMatrix_list <- lapply(outDf_list, create_quantile_matrix)

（可选）导出为独立命名变量 #

如果需要保留quantileMatrix_1、quantileMatrix_2这类独立变量的形式，可将列表元素导出到全局环境：

names(quantileMatrix_list) <- paste0("quantileMatrix_", 1:length(quantileMatrix_list))
list2env(quantileMatrix_list, envir = .GlobalEnv)

后续无论要处理多少个数据框，只需修改1:N的范围即可，无需重复编写冗余代码。

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