如何在R语言中完成for循环迭代后重新启动该循环？

你的for循环是基于1:length(source)这个固定序列迭代的，循环过程中i会依次取序列里的每个值，哪怕你在循环里手动把i改成1，下一次迭代还是会取序列的下一个元素。当序列遍历到最后一个值时，循环直接终止，所以重启循环的操作无效。

根据你的需求，有两种常用实现方式：

方式一：用外层循环控制p的范围（推荐，性能更优） #

如果你知道p需要循环的范围（比如从19到22），可以直接用外层for循环遍历p的取值，内层循环处理source的迭代：

p_start <- 19
p_end <- 22
source <- 1:420
source_len <- length(source)
# 提前初始化结果向量，避免频繁追加的性能损耗
a <- numeric((p_end - p_start + 1) * source_len)

for (p in p_start:p_end) {
  for (i in seq_along(source)) {
    # 计算当前元素在a中的位置
    idx <- (p - p_start) * source_len + i
    a[idx] <- p + i
  }
}

方式二：用while循环实现动态重启（适合不确定循环次数的场景） #

如果p的循环次数不确定，需要根据某个条件动态终止，可以用while循环包裹内层for循环：

p <- 19
a <- c()
source <- 1:420

# 这里可以替换成你实际的终止条件，比如p <= 25
while (p <= 25) {
  for (i in seq_along(source)) {
    a <- c(a, p + i)
  }
  # 完成一轮迭代后更新p
  p <- p + 1
}

注意：如果数据量较大，不推荐用a <- c(a, ...)的方式追加元素，因为每次都会重新创建向量，性能较差，建议提前初始化向量长度。

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