R语言求助：按交替方式合并两个DataFrame并保留原列名

先构造示例数据框方便演示：

df1 <- data.frame(A = c(1, 2, 3), B = c(4, 5, 6), C = c(7, 8, 9))
df2 <- data.frame(A = c(2, 3, 4), B = c(5, 6, 7), C = c(8, 9, 10))

方法1：改进for循环实现 #

你之前用cbind没保留列名，大概率是因为直接提取列时变成了向量而非数据框结构。用drop=FALSE可以保持列的结构，同时手动给差值列命名即可：

# 初始化空结果数据框
result <- data.frame()

# 遍历每一列的列名
for(col_name in colnames(df1)){
  # 以数据框形式提取列，保留原列名
  col_from_df1 <- df1[, col_name, drop = FALSE]
  col_from_df2 <- df2[, col_name, drop = FALSE]
  # 生成差值列，命名为「原列名_diff」
  diff_col <- data.frame(!!paste0(col_name, "_diff") := col_from_df1[[col_name]] - col_from_df2[[col_name]])
  
  # 合并当前三列到结果中
  result <- cbind(result, col_from_df1, col_from_df2, diff_col)
}

# 查看最终结果
print(result)

方法2：用purrr包实现（更简洁） #

如果习惯R的向量化操作，用purrr的map函数可以避免循环的繁琐：

# 若未安装purrr先执行：install.packages("purrr")
library(purrr)

# 按列名批量处理每一组列
processed_cols <- map(colnames(df1), function(col){
  # 生成包含当前列、对应df2列、差值列的小数据框
  temp_df <- data.frame(
    df1[[col]],
    df2[[col]],
    df1[[col]] - df2[[col]]
  )
  # 手动设置列名，保留原列名
  colnames(temp_df) <- c(col, col, paste0(col, "_diff"))
  return(temp_df)
})

# 合并所有处理好的列
result <- do.call(cbind, processed_cols)

print(result)

注意事项 #

• 确保两个DataFrame结构完全一致：列名顺序、列数、数据类型都匹配，可以用all(colnames(df1) == colnames(df2))验证。
• 若需要区分df1和df2的列（比如列名重复时），可以把列名改成paste0(col_name, "_df1")和paste0(col_name, "_df2")，根据需求调整即可。

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