R语言中匹配第一个数据框对应行填充第二个数据框NA值的方法

核心需求为以A列为公共匹配键，用DF1的B列取值替换DF2 B列中的NA值，可通过以下两种常用方式实现：

方法1：基础R实现（无需加载第三方包） #

# 匹配两个数据框A列对应的行索引
match_idx <- match(DF2$A, DF1$A)
# 定位DF2的NA值位置，用DF1对应位置的值替换
DF2$B[is.na(DF2$B)] <- DF1$B[match_idx][is.na(DF2$B)]

运行后DF2的B列结果为："kittens" "puppies" "pig"

方法2：dplyr包实现（适合tidyverse技术栈） #

借助coalesce()函数可直接取第一个非NA值，代码更简洁：

library(dplyr)
# 表关联后替换NA
DF2 <- DF2 %>% 
  left_join(select(DF1, A, B), by = "A", suffix = c("", "_df1")) %>% 
  mutate(B = coalesce(B, B_df1)) %>% 
  select(-B_df1)

如果两个数据框的A列排序完全一致，可以简化为一行代码：

DF2$B <- coalesce(DF2$B, DF1$B)

merge操作失败原因说明 #

merge函数仅完成了两个表的关联合并，默认会生成带后缀的两个B列（如B.x B.y），补充NA替换逻辑即可实现需求：

merged_df <- merge(DF2, DF1[,c("A","B")], by = "A", suffix = c("","_df1"))
merged_df$B[is.na(merged_df$B)] <- merged_df$B_df1[is.na(merged_df$B)]
DF2 <- merged_df[,names(DF2)]

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