匹配数据框新增SIC列时出现错误，求排查解决方法

1. match + ifelse方法的错误原因 #

你用match得到的是每个df$Descr Activity在df2$Descr中的位置索引，但直接把df2$SIC作为ifelse的第二个参数是错误的：

• ifelse要求三个参数长度一致，当匹配条件为TRUE时，R会循环复用df2$SIC的元素，导致所有匹配行都取到df2$SIC的第一个值，而不是对应位置的SIC。

修复后的代码 #

# 获取每个匹配项在df2中的位置
match_idx <- match(df$`Descr Activity`, df2$Descr)
# 用索引提取对应SIC，NA替换为"N/A"
df$SIC <- ifelse(is.na(match_idx), "N/A", df2$SIC[match_idx])

2. right_join方法的错误原因 #

报错的核心是匹配列的对应关系没写对：

• df2的匹配列是Descr，df的匹配列是Descr Activity，两者列名不同，你需要明确告诉dplyr哪两列对应；
• 直接写by=Descr Activity``时，R会把它当成一个全局对象名，而不是df中的列名，所以报"object not found"。

修复后的代码 #

library(dplyr)

df <- df2 %>%
  select(Descr, SIC) %>%
  # 明确指定：df2的Descr 对应 df的Descr Activity
  right_join(df, by = c("Descr" = "Descr Activity")) %>%
  # 将匹配失败的SIC替换为"N/A"
  mutate(SIC = ifelse(is.na(SIC), "N/A", SIC)) %>%
  # 移除多余的Descr列，保留原有的Descr Activity列
  select(-Descr)

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