R语言中列顺序不同的data frame逐列配对运算实现方案

核心错误原因说明 #

1. $ 运算符不支持动态传变量作为列名，DF1$i 会直接查找名为i的列，而非读取变量i存储的列名字符串，因此返回NULL
2. 原for循环中每次都重新给DF3赋值，直接覆盖了上一轮的计算结果，最后仅保留最后一列的运算结果

最优实现方案 #

Base R 无依赖方案 #

无需安装第三方包，代码逻辑直观，默认保留和DF1一致的列顺序：

# 示例数据
DF1 = data.frame(a = c(0,1), b = c(2,3), c = c(4,5))
DF2 = data.frame(a = c(6,7), c = c(8,9))

# 取两个数据框的所有列名并集，顺序和DF1保持一致
all_cols <- union(names(DF1), names(DF2))
# 给DF2补全缺失列，默认填充NA
DF2[setdiff(all_cols, names(DF2))] <- NA
# 按列名匹配配对相加，保留NA
DF3 <- DF1[all_cols] + DF2[all_cols]

运算结果：

> DF3
  a  b  c
1 6 NA 12
2 8 NA 14

Tidyverse 简洁方案 #

适合已经使用tidyverse生态的场景，可适配更多自定义运算逻辑：

library(dplyr)

DF3 <- bind_rows(DF1, DF2) %>%
  # 按行位置分组，对齐两个数据框的同位置行
  group_by(row_id = (row_number() - 1) %% nrow(DF1) + 1) %>%
  # 对所有DF1包含的列求和，na.rm=F保证缺失值保留
  summarise(across(all_of(names(DF1)), sum, na.rm = FALSE)) %>%
  # 移除辅助分组列
  select(-row_id)

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