R语言多表格合并异常：含异同列时合并结果不符合预期

问题背景 #

需要合并多个存在重叠列与独有列的表格，示例如下：

原表格 #

表格1：

|1|data|ID|average|
|2|abc |10|50     |
|3|abc |11|75     |

表格2：

|1|average|condition|
|2|50     |cold     |
|3|75     |hot      |

预期合并结果 #

|1|data|ID|average|condition|
|2|abc |10|50     |cold     |
|3|abc |11|75     |hot      |

当前错误实现 #

使用Reduce+merge的默认合并逻辑时，出现重复行问题：

if (length(table_data_list) > 0) {
  merged_table_data <- Reduce(function(...) merge(..., all = TRUE), table_data_list)
  selected_table_data(merged_table_data)
}

错误结果 #

|1|data|ID|average|condition|
|2|abc |10|50     |         |
|3|abc |11|75     |         |
|2|    |  |50     |cold     |
|3|    |  |75     |hot      |

限制条件 #

无法直接使用指定by参数的merge调用，原因：

• 待合并表格数量不固定（3~100个不等）；
• 关联列名不固定，新增表格时需频繁修改by参数。

解决方案 #

核心思路 #

自动识别所有表格的共同列作为合并键，基于这些列完成批量合并，避免重复行。

实现代码 #

if (length(table_data_list) > 0) {
  # 提取所有表格的列名，找出共同列
  all_column_names <- lapply(table_data_list, colnames)
  common_merge_keys <- Reduce(intersect, all_column_names)
  
  # 基于共同列合并所有表格
  merged_table_data <- Reduce(
    function(x, y) merge(x, y, by = common_merge_keys, all = TRUE),
    table_data_list
  )
  selected_table_data(merged_table_data)
}

关键说明 #

• 代码自动获取所有表格的交集列作为合并键，无需手动指定by参数；
• 支持任意数量的表格合并，适配动态新增的表格；
• 若所有表格无共同列，会触发笛卡尔积合并（需根据业务场景补充唯一标识列或调整合并逻辑）。

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