表1:testcode
表2:test1图片
把表1的楼盘匹配到表2不规则的楼盘里面。string
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=",")