R语言实现双变量Index Match 基于双主键匹配更新数据集字段

报错核心原因有两个：

1. dplyr::if_else()要求条件判断向量、真值返回向量、假值返回向量三者长度完全一致，示例中dat1共20行，判断条件长度为20，但传入的真值dat2$hospitalized2只有10行，长度不匹配直接触发报错。
2. 原写法用两个match()结果做逻辑与运算无法正确识别联合主键匹配：match()返回的是匹配位置的索引值而非逻辑值，且分开匹配record_id和patient_id无法保证两个键同时匹配到同一条dat2记录，匹配逻辑本身存在漏洞。

方法1：使用rows_update()（推荐，最贴合需求） #

rows_update()是dplyr专门为「按键匹配覆盖更新字段」场景设计的函数，不需要手动写条件判断，直接指定联合匹配键即可完成更新，未匹配到的记录自动保留原值：

pacman::p_load(tidyverse)

set.seed(123)
# 生成示例数据
record_id <- rep(1:10, each = 2)
patient_id <- rep(1:2, 10)
hospitalized <- sample(0:1, 20, replace = TRUE)
dat1 <- as_tibble(cbind(record_id, patient_id, hospitalized))

record_id2 <- 1:10
patient_id2 <- sample(1:2, 10, replace = TRUE)
hospitalized2 <- sample(0:1, 10, replace = TRUE)
dat2 <- as_tibble(cbind(record_id2, patient_id2, hospitalized2))

# 统一dat2列名和dat1一致
dat2_clean <- dat2 %>%
  rename(
    record_id = record_id2,
    patient_id = patient_id2,
    hospitalized = hospitalized2
  )

# 联合键匹配更新
dat1_updated <- dat1 %>%
  rows_update(
    dat2_clean,
    by = c("record_id", "patient_id"),
    unmatched = "ignore" # 未匹配到的dat1记录保留原值，不报错
  )

方法2：左连接+条件替换 #

如果更熟悉连接逻辑，可以先把dat2的更新字段左连接到dat1，再替换匹配到的记录值：

dat1_updated <- dat1 %>%
  # 连接时直接指定两边键名的对应关系，不需要提前重命名
  left_join(
    dat2,
    by = c("record_id" = "record_id2", "patient_id" = "patient_id2")
  ) %>%
  mutate(
    # 匹配到的记录用dat2的hospitalized2覆盖，没匹配到的保留原hospitalized值
    hospitalized = if_else(!is.na(hospitalized2), hospitalized2, hospitalized)
  ) %>%
  # 删掉临时加入的hospitalized2列
  select(-hospitalized2)

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