请教一下论坛的各位老师，我现在想实现的一个功能是将机构批量定位到城市尺度。其中机构所在的城市保存在address_list数据表中，包含两列（applicant和city）。
举个例子：

图1：示例效果（左边到右边）

图2：address_list数据集
我尝试用过使用以下语句：
data$申请人 <- gsub(" ","",data$申请人,fixed = T) #去除空格
applicant <- stringr::str_split(data$申请人,";") #以分号为分隔符
applicant_new <- lapply(applicant, function(x) stri_replace_all_coll(x, address_list$applicant, address_list$city,vectorize_all=F))
运用最后一句来实现批量替换，但是这句语句我运行了一天一夜也没出来，主要是因为我的address_list文件和applicant文件都比较大，语句的运行效率比较低。所以想请教各位老师有没有好办法更有效率的实现上述效果。