如何用lapply/do.call替代for循环，基于merge合并数据框？

没问题，这有个完美适配你需求的方案——用R的函数式编程风格替代for循环，结合lapply和do.call就能实现按nr列批量合并数据框，完全避开cbind的重复列问题：

完整可运行代码 #

set.seed(1) # 保证结果可复现

newCol <- function(x) {
  # 修正原函数小细节：runif(1)会生成单值循环填充，这里改为runif(5)对应5行随机值
  add_df <- data.frame("nr" = 1:5, runif(5))
  colnames(add_df)[2] <- x
  return(add_df)
}

# 定义要生成的目标列名向量
x_vec <- c("B", "C", "D")

# 生成包含基准数据框在内的所有待合并数据框列表
df_list <- c(list(newCol("A")), lapply(x_vec, newCol))

# 用do.call批量执行merge，按nr列合并所有数据框
df_base <- do.call(merge, c(df_list, by = "nr"))

print(df_base)

逻辑解释 #

1. 生成数据框列表：先用lapply(x_vec, newCol)批量生成所有需要追加的列对应的数据框，再把基准的newCol("A")整合进同一个列表——这样我们就得到了所有待合并数据框的完整集合。
2. 批量合并操作：do.call(merge, c(df_list, by = "nr"))的作用是把merge函数“批量应用”到列表中的每一个数据框上，同时指定合并的主键为nr。这和你原来的for循环逻辑完全一致（依次合并每个新数据框），但用函数式写法更简洁、更符合R的编程习惯。

为什么比cbind靠谱？ #

cbind只是简单按列拼接，会保留每个数据框里的nr列，最终导致结果出现多重复的nr列；而merge会按照指定的主键匹配行，自动去重主键列，完全符合你需要的合并逻辑。

内容的提问来源于stack exchange，提问作者r.user.05apr