R语言while循环无法保存迭代结果至列表的技术问询

嘿，我太懂你这种挫败感了——照着repeat循环的方法套到while里，结果循环跑完列表还是空的，简直摸不着头脑。咱们来揪出问题根源，再给你几个靠谱的解决方案。

最可能的两个问题 #

1. 作用域踩坑：你在函数repl()外面定义了iter.res <- list()，但函数内部默认是在自己的局部环境里操作，不会修改全局环境的那个列表。相当于你在函数里又创建了一个同名的空列表，循环结束后这个局部列表就被销毁了，全局的自然还是空的。
2. 循环逻辑漏洞：你的代码里iters <- iters ...看起来没写完——如果没写+1，迭代计数器就不会推进，每次都往同一个列表位置存值；另外while (x < y)里的x和y如果没正确初始化或更新，循环可能根本没执行，或者无限跑下去。还有你的sim(N = ceiling(nn))没赋值给nn，这会导致nn的值不明，存进列表的可能不是你要的结果。

修正后的两种解决方案 #

方案一：把列表放在函数内部（推荐，更规范）

这种方式避免了全局变量的混乱，函数执行完直接返回结果列表：

repl <- function() {
  iter.res <- list()  # 列表放在函数内部，避免作用域问题
  iters <- 1
  # 先初始化循环条件里的变量，根据你的需求调整初始值
  x <- 0
  y <- 5
  n <- 10  # 假设n的初始值，替换成你的实际值
  
  while (x < y) {
    # 把sim的结果赋值给nn，这里用随机数模拟你的自定义函数
    nn <- sim(N = ceiling(n))  # 替换成你实际的sim调用
    iter.res[[iters]] <- nn  # 把结果存入列表对应位置
    x <- x + 1  # 必须更新循环条件，不然会无限循环
    iters <- iters + 1  # 迭代计数器加1，推进列表位置
  }
  return(iter.res)  # 返回最终的结果列表
}

# 调用函数并保存结果
final_results <- repl()
# 查看结果
final_results

方案二：用<<-修改全局列表（不推荐，仅当你确实需要全局变量时用）

如果你一定要在函数外部维护这个列表，可以用<<-强制修改全局环境的变量：

# 全局定义结果列表
iter.res <- list()

repl <- function() {
  iters <- 1
  x <- 0
  y <- 5
  n <- 10
  
  while (x < y) {
    nn <- sim(N = ceiling(n))
    iter.res[[iters]] <<- nn  # 用<<-修改全局列表
    x <- x + 1
    iters <- iters + 1
  }
}

# 调用函数
repl()
# 查看全局列表的结果
iter.res

关键注意事项 #

• 确保循环能终止：一定要在循环里更新x或y，不然while (x < y)永远为真，会无限循环。
• 迭代计数器必须更新：iters <- iters + 1不能少，不然每次都会覆盖列表的同一个位置，最后列表里只有最后一个结果，甚至长度不对。
• 自定义函数的赋值：sim()的结果必须赋值给nn，不然nn没有有效值，存进列表的内容肯定不对。

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