R语言数据框跨表匹配插补缺失值仅返回首个匹配值问题

match()函数本身仅会返回每个待匹配值对应的第一个匹配项索引，因此原代码只能提取df2中每个V1值的首条匹配V2记录，无法聚合同一V1下的所有V2值。

你需要先对df2按V1分组，将同组V2值拼接为逗号分隔字符串生成映射表，再做匹配填充即可，以下是两种常用实现：

方法1：Base R 原生实现（无需安装额外包） #

# 聚合生成V1与拼接后V2的映射表
v2_map <- aggregate(V2 ~ V1, data = df2, paste, collapse = ", ")
# 全量填充（适用于示例中df1$V2全为NA的场景）
df1$V2 <- v2_map$V2[match(df1$V1, v2_map$V1)]

如果df1中存在部分非空的V2值，仅需要填充NA位置，将填充逻辑替换为以下代码即可：

na_pos <- is.na(df1$V2)
df1$V2[na_pos] <- v2_map$V2[match(df1$V1[na_pos], v2_map$V1)]

方法2：dplyr 管道实现（适配你使用%>%的书写习惯） #

library(dplyr)

df1 <- df1 %>%
  # 移除原有全空的V2列避免连接冲突
  select(-V2) %>%
  # 聚合df2后按V1左连接匹配
  left_join(
    df2 %>%
      group_by(V1) %>%
      summarise(V2 = paste(V2, collapse = ", "), .groups = "drop"),
    by = "V1"
  )

如果需要保留df1中原有的非空V2值、仅填充缺失项，使用以下逻辑：

library(dplyr)

df1 <- df1 %>%
  left_join(
    df2 %>%
      group_by(V1) %>%
      summarise(agg_v2 = paste(V2, collapse = ", "), .groups = "drop"),
    by = "V1"
  ) %>%
  mutate(V2 = ifelse(is.na(V2), agg_v2, V2)) %>%
  select(-agg_v2)

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