R语言按行合并含异同列的数据框：解决rbind报错并补0

当两个数据框列名或列数不一致时，直接调用rbind()会触发"参数列数不匹配"的报错。要实现保留所有列、缺失列填充0的合并效果，可参考以下两种方法：

方法一：基础R原生实现 #

无需额外安装包，通过补全列、统一列顺序后再合并：

aa <- data.frame(a= c(1,1,2,3,4), b = c(5,3,2,6,1))
bb <- data.frame(a= c(1,1,6,7,4), c = c(4,3,7,2,1))

# 获取两个数据框的所有列名并集
all_cols <- union(names(aa), names(bb))

# 给aa补充缺失列，填充0
for(col in setdiff(all_cols, names(aa))){
  aa[[col]] <- 0
}

# 给bb补充缺失列，填充0
for(col in setdiff(all_cols, names(bb))){
  bb[[col]] <- 0
}

# 统一两个数据框的列顺序
aa <- aa[, all_cols]
bb <- bb[, all_cols]

# 合并数据框
result <- rbind(aa, bb)
print(result)

运行后输出结果：

a b c
1  1 5 0
2  1 3 0
3  2 2 0
4  3 6 0
5  4 1 0
6  1 0 4
7  1 0 3
8  6 0 7
9  7 0 2
10 4 0 1

方法二：用dplyr包简化操作 #

如果常用tidyverse生态，bind_rows()可以自动合并列，再配合替换NA为0即可：

library(dplyr)

aa <- data.frame(a= c(1,1,2,3,4), b = c(5,3,2,6,1))
bb <- data.frame(a= c(1,1,6,7,4), c = c(4,3,7,2,1))

# 合并后将缺失值替换为0
result <- bind_rows(aa, bb) %>%
  mutate(across(setdiff(union(names(aa), names(bb)), names(.)), ~replace_na(., 0)))

print(result)

该方法代码更简洁，输出结果与基础R方法一致。

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