R语言基于两个公共列匹配合并dataframe并处理fill缺失值的方法

连接方式选择 #

你需要使用**左外连接（左连接）**实现需求，该连接方式可以完整保留左表A的所有行，仅匹配右表B中week和store两个字段完全一致的行，完全符合你不删除A中未匹配行的要求。

merge函数完全可以实现该需求，是非常合适的方案，另外也可以使用dplyr包的left_join函数实现，两种实现方法如下：

前置注意事项 #

首先需要统一两个表公共列的数值类型，你给出的示例数据中，A的week列为数值型，B的week列为字符型，类型不一致会导致匹配失效，需要先统一类型。

方法1：基础R merge实现 #

# 统一week列类型为字符型
A$week <- as.character(A$week)
B$week <- as.character(B$week)

# 执行左连接，仅保留B表需要的fill列避免冗余字段
res <- merge(
  x = A,
  y = B[, c("week", "store", "fill")],
  by = c("week", "store"),
  all.x = TRUE
)

# 将未匹配到的NA值替换为0
res$fill[is.na(res$fill)] <- 0

参数说明：

• by = c("week", "store") 指定两个表匹配的公共字段
• all.x = TRUE 开启左连接模式，保留左表A的所有行

方法2：dplyr包left_join实现 #

如果你习惯使用tidyverse语法，也可以用left_join实现，逻辑和merge完全一致：

library(dplyr)

res <- A %>%
  # 统一week列类型
  mutate(week = as.character(week)) %>%
  # 左连接匹配B表
  left_join(
    B %>% mutate(week = as.character(week)) %>% select(week, store, fill),
    by = c("week", "store")
  ) %>%
  # 替换未匹配的NA为0
  mutate(fill = tidyr::replace_na(fill, 0))

注：你提供的示例数据中A和B的store、week取值没有重叠，所以最终输出的fill列全部为0，可自行构造有重叠值的测试数据验证匹配逻辑的正确性。

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