r - 使用数据字典应用值替换

Question

df1=c("blue,green,green", "blue", "green")
dictionary=data.frame(label=c("blue","green"),value=c(1,2))
want=c("1,2,2","1","2")

我希望使用数据字典替换一些数据。数据 (df1) 在一个单元格中可能有多个条目，以逗号分隔。我查看了 str_replace_all，我可以通过str_replace_all(colors,c("blue"="1","green"="2")) 实现，但我无法创建 c("blue"="1","green"="2") 使用字典数据框。我有一百多个项目要编码，所以硬编码不是一种选择。将不胜感激任何关于如何使这项工作或其他方式的指导!

Answer 1

从字典创建命名向量并使用 str_replace_all

library(dplyr)
library(stringr)
library(tibble)
dictionary %>% 
   mutate(value = as.character(value)) %>%
   deframe %>%
   str_replace_all(df1, .)
#[1] "1,2,2" "1"     "2"