在R语言中为数据框批量添加多列行数据的实现方法

推荐两种高效的实现方式，适合行数较多的场景：

方法一：批量生成ID列后合并（更简洁高效） #

这种方式先把所有迭代生成的向量整合成结构化数据框，再和原数据框合并，避免逐列逐行操作的低效问题：

# 初始化原始数据框
df <- data.frame(
  Column_A = c("First", "Second"),
  Column_B = c("row", "row"),
  stringsAsFactors = FALSE
)

# 实际场景中，可在迭代时直接将生成的向量存入列表（示例用现成的两个向量）
row_list <- list(
  c("ID1", "ID4", "ID7", "ID12", "ID19", "ID22", "ID24", "ID37", "ID42", "ID49"),
  c("ID2", "ID44", "ID67", "ID72", "ID79", "ID82", "ID84", "ID87", "ID92", "ID99")
)

# 将列表转成矩阵（每个列表元素对应一行），再转为数据框并设置列名
id_columns <- as.data.frame(do.call(rbind, row_list), stringsAsFactors = FALSE)
colnames(id_columns) <- paste0("ID_", 1:10)

# 合并原始数据框和ID列
final_df <- cbind(df, id_columns)

方法二：先创建空列再填充（符合你提出的思路） #

如果一定要先创建10个空列再填充数据，可用矩阵赋值的方式，比循环填充效率高得多：

# 初始化原始数据框
df <- data.frame(
  Column_A = c("First", "Second"),
  Column_B = c("row", "row"),
  stringsAsFactors = FALSE
)

# 先添加10个空列，列名设置为ID_1到ID_10
df[paste0("ID_", 1:10)] <- NA_character_

# 将迭代生成的向量转成矩阵
row_matrix <- do.call(rbind, row_list)

# 直接用矩阵批量填充空列（用列名定位，避免依赖列的位置）
df[, paste0("ID_", 1:10)] <- row_matrix

关键提示 #

• 优先用向量化操作（比如do.call(rbind, ...)、矩阵赋值），不要用for循环逐行逐列填充，行数多的时候速度差距会非常大。
• 设置stringsAsFactors = FALSE可避免自动把字符串转成因子类型，后续操作更灵活。

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