R中如何快速合并for循环生成的不等长向量为data.frame

最高效的实现思路就是你提到的「先存列表，后统一补全合并」，完全避免循环内反复操作数据框的冗余开销，具体实现如下：

步骤1：改造循环，将所有向量存入命名列表 #

循环内仅做赋值操作，不要反复合并数据框，命名可直接在列表赋值时完成：

# 初始化列表，预先存入初始向量
vec_list <- list(dat = c(1,2,3))

for (i in 1:5) {
  temp <- runif(i)
  # 直接以目标列名作为列表键名存值
  vec_list[[paste0("nr", i)]] <- temp
}

步骤2：合并不等长向量 #

以下两种方案均兼容R 4.x所有版本，无旧包失效问题：

方案1：纯基础R实现（无需安装任何包） #

# 计算所有向量的最大长度
max_len <- max(lengths(vec_list))
# 逐列补全NA后合并为数据框
result <- as.data.frame(
  lapply(vec_list, function(x) c(x, rep(NA, max_len - length(x))))
)
# 如需tibble格式，追加as_tibble(result)即可

方案2：tidyverse生态实现（代码更简洁） #

依赖长期维护的purrr包（tidyverse核心组件），自动识别最长向量、自动补全NA：

library(purrr)
result <- list_cbind(vec_list)

两种方案的性能都远高于循环内合并的实现，当循环次数超过100次时性能差距会非常明显，输出结构和你给出的预期格式完全一致。

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