R中使用PostgreSQL时列数不同的两个数据框如何按匹配列追加

方法1：R端预处理列结构后写入（最易用） #

该方案无需修改SQL逻辑，在R层统一列结构后直接写入即可，支持保留所有列、缺失值自动补NA：

• 先收集所有待写入表的全量列名，或读取数据库中已有目标表的列名
• 为每个待写入表补全缺失列，统一列顺序后执行写入
  代码示例：

library(RPostgres)

a <- data.frame(no=c(234,235,346),year=2012:2014,col1=c(1,1,1))
b <- data.frame(no=c(333,353,324),year=2014:2016,col2=c(2,2,2))

# 连接数据库
drv <- dbDriver('Postgres')
con <- dbConnect(drv,user='postgres',dbname='dummy_db')

# 定义补全缺失列的工具函数
fill_missing_cols <- function(df, target_cols) {
  # 找出缺失的列，赋值为NA
  missing_cols <- setdiff(target_cols, colnames(df))
  df[missing_cols] <- NA
  # 统一列顺序和目标表一致
  return(df[, target_cols])
}

# --- 首次建表写入逻辑 ---
# 提取所有待写入表的全量唯一列
all_cols <- unique(c(colnames(a), colnames(b)))
a_filled <- fill_missing_cols(a, all_cols)
b_filled <- fill_missing_cols(b, all_cols)
# 首次写入建表，后续可直接追加
dbWriteTable(con, 'dummy_table', a_filled, overwrite = T, row.names = F)
dbWriteTable(con, 'dummy_table', b_filled, append = T, row.names = F)

# --- 已有表追加写入逻辑 ---
# 先读取数据库中已有目标表的列
existing_cols <- dbListFields(con, 'dummy_table')
new_df_filled <- fill_missing_cols(b, existing_cols)
dbWriteTable(con, 'dummy_table', new_df_filled, append = T, row.names = F)

方法2：SQL层面UNION实现 #

如果更习惯用SQL逻辑处理，可先将数据写入临时表，再通过UNION ALL合并生成目标表：

# 写入临时表
dbWriteTable(con, 'temp_a', a, overwrite = T, row.names = F)
dbWriteTable(con, 'temp_b', b, overwrite = T, row.names = F)

# 执行合并SQL，缺失列补NULL
merge_sql <- "
CREATE TABLE dummy_table AS
SELECT no, year, col1, NULL::int AS col2 FROM temp_a
UNION ALL
SELECT no, year, NULL::int AS col1, col2 FROM temp_b
"
dbExecute(con, merge_sql)

# 清理临时表
dbRemoveTable(con, 'temp_a')
dbRemoveTable(con, 'temp_b')

仅按公共列追加的实现 #

如果不需要保留各表独有的列，仅合并两个表的公共列，可直接提取公共列后写入：

# 提取两个表的公共列
common_cols <- intersect(colnames(a), colnames(b))
# 仅保留公共列写入
dbWriteTable(con, 'dummy_table', a[, common_cols], overwrite = T, row.names = F)
dbWriteTable(con, 'dummy_table', b[, common_cols], append = T, row.names = F)

内容的提问来源于stack exchange，提问作者Samet Sökel