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

Question

Post similar with this Create dictionary and replace by it latin words in R . The solution of Moody_Mudskipper is good, but let's examine this phrase

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

and so on... indeed i must get

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

but

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

after i get only NA. What's wrong?

 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

_my dictionary

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

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

desired output

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

now i get output

1.Na
2.Na
...
35000 NA

Answer 1

You can try this :

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