R语言实现数据框按药品名称匹配合并，不匹配项填NA

需求：将DF1与DF2按药物名称匹配合并，匹配成功时带入DF2对应字段，不匹配项填充NA。但使用merge或left_join后，结果未达到预期。

示例数据 #

DF1 #

DF1 <- data.frame(
  Pat_ID = c("AB1", "AB1", "AB1", "Ax2", "Ax2", "Aq3", "Aq3", "Aw4"),
  Date = c("2010-12-09", "2010-12-15", "2010-12-15", "2010-12-09", "2010-12-17", "2011-02-09", "2011-04-25", "2011-04-25"),
  Code = rep("1.1.1", 8),
  Drug_Names = c("Alpha", "Alpha", "Beta", "Beta", "Beta", "Gamma", "Gamma", "Tango")
)

DF2 #

DF2 <- data.frame(
  Codez = c("1.1.1", "1.1.3"),
  Drugz = c("Alpha", "Gamma")
)

问题原因 #

你的连接逻辑本身正确，但大概率是匹配字段存在隐形空格或格式差异（比如DF2的Drugz字符串前后有空格，和DF1的Drug_Names无法精准匹配），导致连接时没有匹配上对应项，所以结果和DF1几乎一致。

解决步骤 #

1. 先清理匹配字段，去除前后空格：

# 清理DF1的Drug_Names字段
DF1$Drug_Names <- trimws(DF1$Drug_Names)
# 清理DF2的Drugz字段
DF2$Drugz <- trimws(DF2$Drugz)

2. 执行左连接：

方法1：Base R的merge函数

DF3 <- merge(DF1, DF2, all.x = TRUE, by.x = "Drug_Names", by.y = "Drugz")

方法2：dplyr的left_join函数

library(dplyr)
DF3 <- DF1 %>% 
  left_join(DF2, by = c("Drug_Names" = "Drugz"))

最终结果 #

执行后将得到目标DF3：

# DF3输出结果
  Drug_Names Pat_ID       Date  Code Codez
1      Alpha    AB1 2010-12-09 1.1.1 1.1.1
2      Alpha    AB1 2010-12-15 1.1.1 1.1.1
3       Beta    AB1 2010-12-15 1.1.1  <NA>
4       Beta    Ax2 2010-12-09 1.1.1  <NA>
5       Beta    Ax2 2010-12-17 1.1.1  <NA>
6      Gamma    Aq3 2011-02-09 1.1.1 1.1.3
7      Gamma    Aq3 2011-04-25 1.1.1 1.1.3
8      Tango    Aw4 2011-04-25 1.1.1  <NA>

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