R：一对多的模糊匹配

表1:test

表2:test1

把表1的楼盘匹配到表2不规则的楼盘里面。

library(stringr)
#导入表2的数据
totaldata<-read.table("C:/Users/steph/Desktop/visual/test1.csv",sep=",",header=FALSE)
total<-as.matrix(totaldata)
data1<-as.vector(total)
#导入表1的数据
seconddata<-read.table("C:/Users/steph/Desktop/visual/test.csv",sep=",",header=FALSE)
second<-as.matrix(seconddata)
data2<-as.vector(second)
b<-length(data2)
#循环替换
for(n in 1:b){
i<-data2[n]
data1[which(str_detect(data1,i)==TRUE)]<-i
next
}
#导出到本地
setwd("C:/Users/steph/Desktop/visual")
write.table(data1,"mydata.csv",sep=",")