创建字典并用它替换R中短语中的拉丁词

Question

与此类似的帖子 Create dictionary and replace by it latin words in R。 Moody_Mudskipper 的解决方案很好，但是 让我们检查一下这句话

2049750 TESS чай солид     450mg

等等…… 确实我必须得到

2049750 ТЕСС чай солид     450mg

但是

output <- with(lapply(dict,as.character), new[match(tolower(input),old)])
output

在我只得到 NA 之后。 怎么了？

 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA

_我的字典

dict <- structure(list(
  old = structure(c(2L, 1L), .Label = c("mag", "tess"),class = "factor"),
  new = structure(c(2L, 1L), .Label = c("маг", "тесс"), class = "factor")),
  .Names = c("old", "new"), class = "data.frame", row.names = c(NA, -2L))

输入

input<-("2049750 TESS чай солид     450mg")

想要的输出

2049750 ТЕСС чай солид     450mg

现在我得到了输出

1.Na
2.Na
...
35000 NA

Answer 1

你可以试试这个：

library(stringr)
dict2 <- setNames(toupper(as.character(dict$new)), 
                  paste0("\\b",toupper(dict$old),"\\b")) 
str_replace_all(input, dict2)
# [1] "2049750 ТЕСС чай солид     450mg"