如何在R语言中将for循环每次迭代结果保存到数据框中

你的代码主要有两个核心问题：

1. 初始化数据框时ncol = 未填写数值，属于语法错误；
2. 循环内部每次用replicate(n = repetition, ...)生成一个3行4列的矩阵，直接赋值给df——这会完全覆盖之前的df数据。最后一次循环i=4时，生成的所有列都是x+400，所以结果全是401/402/403，和你要的「逐次迭代新增列」逻辑完全不符。

正确的循环实现方式 #

如果你需要用循环逐次新增列，可以这么写：

x <- c(1,2,3)
repetition <- 4

# 初始化指定行数的空数据框
df <- data.frame(matrix(nrow = length(x), ncol = 0))

for (i in 1:repetition) {
  # 计算当前迭代的列值
  new_col <- x + 100 * i
  # 给df新增一列，列名为X1、X2...
  df[[paste0("X", i)]] <- new_col
}

df

运行后就能得到你期望的结果：

X1  X2  X3  X4
1 101 201 301 401
2 102 202 302 402
3 103 203 303 403

更高效的向量化实现 #

R中尽量避免循环，用向量化操作更高效，这里可以用outer函数直接生成矩阵，再转成数据框：

x <- c(1,2,3)
repetition <- 4

# 生成所有列的结果矩阵
result_mat <- outer(x, 1:repetition, function(val, n) val + 100 * n)
# 转成数据框并设置列名
df <- as.data.frame(result_mat)
colnames(df) <- paste0("X", 1:repetition)

df

这个方法和循环结果完全一致，但代码更简洁，数据量大时运行速度优势明显。

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