如何用dplyr一步实现数据框A的key匹配B的key1或key2？

问题背景 #

需要将数据框a的key列与数据框b的key1或key2列匹配，现有数据定义：

a<-tibble(key=as.character(c(1:4)),
          else1=c("cup", "plate", "bowl", "jug"))
b<-tibble(key1=c(1,"","",""), 
          key2=as.character(c(5, 2, 3, 4)), 
          else2=c(rep("banana",3), "pear"), 
          else3=c("blues", "jazz", "reggae", "ska"))

尝试两次left_join的方式会产生重复列（如else2.x、else2.y），需要后续合并，现提供两种一步完成匹配且无重复列的方法。

方法1：利用dplyr的多条件连接 #

直接在join_by中指定逻辑或条件，一次完成匹配：

library(dplyr)

result <- a |>
  left_join(b, join_by(key == key1 | key == key2))

该方式会自动匹配key与key1或key2符合的行，直接关联对应的else2、else3列，不会生成重复列。

方法2：先规整数据框b再匹配 #

将b的key1和key2合并为统一的匹配列，再进行连接：

library(dplyr)
library(tidyr)

# 转换b为长格式，合并key列并过滤空值
b_clean <- b |>
  pivot_longer(cols = c(key1, key2), names_to = "key_type", values_to = "key") |>
  filter(key != "")

# 左连接并移除临时列
result <- a |>
  left_join(b_clean, by = "key") |>
  select(-key_type)

这种方式逻辑更直观，适合后续需要扩展多匹配键的场景，同样不会产生重复列。

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