R语言：如何将for循环迭代结果保存至向量或列表

我懂你的问题啦！你现在的代码每次循环都会把新计算的几何均值覆盖变量a，所以最后只能拿到第177次的结果，前面176次的计算值都丢失了。咱们只需要提前准备好一个“容器”来存放每次的结果就行，下面给你两种可行的方法：

方法一：修改for循环（直观易懂） #

首先初始化一个和迭代长度一致的空向量，然后在循环里把每次的结果放到向量对应的位置：

# 先创建一个长度为177的空数值向量，用来存每次的结果
cumulative_geo_mean <- numeric(177)

# 循环计算并保存每次的累积几何均值
for (i in 1:177) {
  cumulative_geo_mean[i] <- geomean(er1$CW[1:i])
}

循环结束后，cumulative_geo_mean就是你想要的向量，它的第i个元素就是前i个值的几何均值。

方法二：用sapply简化代码（更简洁） #

R里可以用sapply()函数直接遍历并生成结果向量，省去手动写循环的步骤：

# 一行代码完成计算
cumulative_geo_mean <- sapply(1:177, function(i) geomean(er1$CW[1:i]))

这个函数会自动处理每个i值，计算对应的累积几何均值，最后把所有结果整合成一个向量返回。

小提示：如果你用的geomean函数来自特定包（比如psych包），记得先加载对应的包哦，比如运行library(psych)。

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