R语言tidyverse：跨列值匹配时按规则mutate新列的实现方法

核心逻辑 #

需求本质是值映射查找：拿当前行的value_1到value列做全列匹配，命中则返回匹配行对应的value_1值，未命中则保留当前行的value_1值。
不需要复杂嵌套，直接用R原生的match()函数做索引查找，搭配coalesce()处理未匹配的空值即可，写法简洁且运行效率高。

注意：match(x, y)默认返回x在y中第一次出现的位置索引，如果你的value列存在重复值，该写法会默认取第一个匹配行对应的value_1值，如果需要取最后一个匹配项，可以替换为表连接逻辑实现。

完整可运行代码 #

library(tidyverse)

# 示例数据
df <- tibble(
  value = c(10, 50, 80, 90, 45),
  value_1 = c(90, 20, 55, 30, 15) 
)

# 实现逻辑
df %>% 
  mutate(
    result = value_1[match(value_1, value)],
    result = coalesce(result, value_1)
  )

运行输出 #

# A tibble: 5 × 3
  value value_1 result
  <dbl>   <dbl>  <dbl>
1    10      90     30
2    50      20     20
3    80      55     55
4    90      30     30
5    45      15     15

兼容原有case_when框架的写法 #

如果你希望保留之前的case_when代码结构，可以按如下方式补全，注意匹配分支需要做索引取值，不能直接写固定常量：

df %>%  
  mutate(result = case_when(
    value_1 %in% value ~ value_1[match(value_1, value)], 
    TRUE ~ value_1
  ))

原有测试代码问题 #

你之前写的代码仅做了「是否匹配」的逻辑判断，在匹配成功分支直接返回固定值1，没有做「查找匹配位置→提取对应位置值」的操作，因此无法得到预期结果。

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