R中的高级查找：如何查看字符串并添加来自数据框架的值？

Question

Excel vlookup 函数和 R join 函数都没有帮助。我试图从一个数据帧中查找特定字符串，并根据不同数据帧的匹配添加新列。但据我所知， _join 函数并不能很好地解决我的特定问题。我在下面展示了两个数据帧和我的代码：

**id**        **address**
3811          bb
4803          dd
4820          dd
852           aa
4031          dd

我想查看这个 address 变量并与下面另一个数据帧中的 local 变量进行匹配。然后我想添加district列中的值。

**local**             **district**
aa                    AA
bb                    BB
cc                    CC
dd                    DD

我运行这段代码来完成任务。我想，当我在没有 for 循环的情况下运行时，它表现良好。但是，使用 for 循环会产生错误。

distr <- data.frame(1:7000)

for (word in df2$local) {
    ind = stringi::stri_detect_fixed(train$address, word) %>% which(.==T)
    ind2 = stringi::stri_detect_fixed(df2$local, word) %>% which(.==T)
    distr[ind, 2] <- df2[ind2, 3]
  }

代码是这样设计的，因此我可以稍后将数据帧 distr 列添加到 train 数据帧。我在哪里犯了特定错误才能正确运行代码？有精通弦乐的人吗？

PS 顺便说一句，我选择了 stri_detect_fixed 函数，因为正则表达式不能适用于这里的每个值。

Answer 1

正如 I_O 所建议的，这似乎与 fuzzyjoin::fuzzy_join() 配合得很好

library(fuzzyjoin)
fuzzy_join(d1, d2, match_fun = stringi::stri_detect_fixed,
           by = c("address" = "local"))

：

    id              address      local     district
1 3811 Yntymak,Жетиген/Орто    Yntymak    leninskyi
2 4803           JD station JD station pervomayskyi
3 4820 JD station, Panfilov JD station pervomayskyi
4  852              Ak-Bata    Ak-Bata sverdlovskyi
5 4031           JD station JD station pervomayskyi

---

d1 <- read.table(header = TRUE,
                 sep = ";",
                 text = "
id;address
3811;Yntymak,Жетиген/Орто
4803;JD station
4820;JD station, Panfilov
852;Ak-Bata
4031;JD station
")

d2 <- read.table(header = TRUE,
                 sep = ";",
                 text = "
local;district
Ak-Bata;sverdlovskyi
Yntymak;leninskyi
Zhilgorodok Sovmina;oktyabrskyi
JD station;pervomayskyi
")