如何批量提取100个向量的最大值并合并为单个向量？

方法1：批量获取变量+批量计算最大值 #

先把所有kldata_finalX变量批量提取到列表，再对每个列表元素计算最大值，最后合并：

# 生成所有目标变量名，批量获取到列表中
kldata_list <- mget(paste0("kldata_final", 1:100))

# 对列表中每个向量计算最大值
maxkl_values <- sapply(kldata_list, max)

# 合并为矩阵/数据框（根据需求选择）
klall <- cbind(maxkl_values)
# 如果需要列名对应原变量，可设置列名：
colnames(klall) <- names(maxkl_values)

方法2：循环遍历变量名计算 #

如果习惯用循环，也可以直接遍历序号生成变量名，逐个计算最大值：

# 初始化空向量存储结果
maxkl_values <- numeric(100)

for(i in 1:100) {
  # 动态获取变量并计算最大值
  maxkl_values[i] <- max(get(paste0("kldata_final", i)))
}

# 转换为矩阵形式
klall <- cbind(maxkl_values)
colnames(klall) <- paste0("maxkl", 1:100)

优化建议 #

如果后续还有类似的批量计算需求，建议在生成kldata_finalX的时候直接存入列表，而不是创建100个独立变量。比如生成时用：

# 示例：假设你的计算函数是calc_func，循环生成并存入列表
kldata_list <- lapply(1:100, function(i) {
  calc_func(你的参数)  # 替换成实际计算函数
})
names(kldata_list) <- paste0("kldata_final", 1:100)

这样后续直接对列表操作会更高效，也避免大量独立变量污染工作环境。

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