R语言中for循环仅返回最后一次迭代结果的问题求解

错误原因 #

你的代码里每次循环都用初始的空df与当前迭代生成的s做行绑定，且没有更新用于累积结果的变量，导致最终out只保留了最后一次迭代的结果。

方法一：修正for循环 #

直接在循环里累积结果到out（或者df），而不是每次都用初始空数据框重新绑定：

l <- list(a = c(1, 3, 5), b = c(4, 8), c = 2)

out <- data.frame()  # 初始化结果容器

for (i in 1:length(l)) {
  s <- data.frame(name = names(l[i]),
                  value = mean(l[[i]]))
  out <- rbind(out, s)  # 每次把新结果追加到out里
}

out

运行后out会包含所有迭代的结果：

name value
1    a     3
2    b     6
3    c     2

方法二：用R的向量化操作替代循环（更高效） #

在R中，循环不是处理这类批量操作的最优方式，推荐用基础函数或purrr包实现：

基础R实现

l <- list(a = c(1, 3, 5), b = c(4, 8), c = 2)

# 先计算所有元素的均值，再转换为数据框
means <- sapply(l, mean)
out <- data.frame(name = names(means), value = means)

purrr包实现（更直观）

如果已安装purrr包，可以用map_dfr直接生成目标数据框：

library(purrr)

l <- list(a = c(1, 3, 5), b = c(4, 8), c = 2)

out <- map_dfr(l, ~data.frame(value = mean(.x)), .id = "name")

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