在R中如何基于匹配条件用另一数据集的列值替换目标列的值？

原代码错误原因 #

1. ifelse 函数语法错误：括号闭合位置错误，判断条件后需要紧跟匹配成功、匹配失败两个返回值，你把这两个参数写到了 transform 的参数列表外，导致逻辑完全不生效
2. 无匹配对应逻辑：直接调用 registry_df$replacement 没有和 target_df 的行做对应匹配，就算修正语法也会出现顺序错乱、长度不匹配的问题

解决方案 #

方案1：基础R实现（无需额外加载包）

通过 match 函数关联两个表的匹配关系，修正 ifelse 逻辑即可：

target_df$project_name <- ifelse(
  target_df$project_name %in% registry_df$to_change,
  registry_df$replacement[match(target_df$project_name, registry_df$to_change)],
  target_df$project_name
)

方案2：dplyr 实现（逻辑清晰易读）

用左连接+空值合并的方式实现，可读性更高：

library(dplyr)

target_df <- target_df %>%
  left_join(registry_df, by = c("project_name" = "to_change")) %>%
  mutate(project_name = coalesce(replacement, project_name)) %>%
  select(-replacement)

方案3：data.table 实现（高效，适配大数据量）

你原本已经加载了data.table，可以用更新连接直接修改，运行效率最高：

library(data.table)

# 转成data.table格式
setDT(target_df)
setDT(registry_df)

# 匹配到的行直接更新project_name，未匹配的保持原值
target_df[registry_df, project_name := replacement, on = c(project_name = "to_change")]

# 若需要转回tibble格式，可执行下面的语句
# target_df <- tibble::as_tibble(target_df)

三种方案都可以得到你需要的预期输出。

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