R 将ID替换为基于单独“ID”的ID；身份证代码“；

我有如下数据：

df <- data.frame(ID = c(11243, 11243, 12335, 12335, 13288), x1 = seq(1, 5), x2 
= seq(42, 46))

df

最后应该是这样（使用替换的ID）：

df <- data.frame(ID = c(1, 1, 2, 2, 3), x1 = seq(1, 5), 
x2 = seq(42, 46))

---

df我们可以使用
match

df$ID <- code$new_ID[match(df$ID, code$orig_ID)]

df$ID使用
dplyr（）
并在需要时保留新的\u ID删除
select（）

您可以使用
match
即
df$ID精彩绝伦，感谢您的快速回复！
df$ID <- code$new_ID[match(df$ID, code$orig_ID)]

library(dplyr)
df %>% left_join(code,by = c("ID" = "orig_ID")) %>% mutate(ID = new_ID) %>% select(-new_ID)