在 For 循环中存储值

Question

我在 R 中有一个 for 循环，我想在其中存储每个计算的结果（对于循环通过的所有值）。在 for 循环中调用了一个函数，并将输出存储在当前的变量 r 中。但是，这在每个连续循环中都会被覆盖。如何通过函数存储每个循环的结果并在之后访问它？

谢谢，

例子

for (par1 in 1:n) {
var<-function(par1,par2)
c(var,par1)->var2
print(var2)

所以 print 会返回 var2 的每个实例，但在 var2 中只保存最后一个 n 的值。有没有什么方法可以获取数据数组或其他东西？

Answer 1

初始化一个空对象，然后通过索引赋值

a <- 0
for (i in 1:10) {
     a[i] <- mean(rnorm(50))
}

print(a)

---

编辑：

要包含一个具有两个输出变量的示例，在最基本的情况下，创建一个空矩阵，其列数与输出参数对应，行数与迭代次数匹配。然后通过在 for 循环中索引行位置，将输出保存在矩阵中：

n <- 10
mat <- matrix(ncol=2, nrow=n)

for (i in 1:n) {
    var1 <- function_one(i,par1)
    var2 <- function_two(i,par2)
    mat[i,] <- c(var1,var2)
}

print(mat)

迭代号i 对应于mat 对象中的行号。所以没有必要明确地跟踪它。

不过，这只是为了说明基础知识。一旦您理解了上述内容，使用@eddi 给出的优雅解决方案会更有效，尤其是在您处理许多输出变量时。

Answer 2

要获得结果列表：

n = 3
lapply(1:n, function(par1) {
  # your function and whatnot, e.g.
  par1*par1
})

或者sapply，如果你想要一个向量来代替。

再复杂一点的例子：

n = 3
some_fn = function(x, y) { x + y }

par2 = 4
lapply(1:n, function(par1) {
  var = some_fn(par1, par2)
  return(c(var, par1))  # don't have to type return, but I chose to make it explicit here
})
#[[1]]
#[1] 5 1
#
#[[2]]
#[1] 6 2
#
#[[3]]
#[1] 7 3