跪求大神：词典提取匹配

！

1. library(stringr)
   
2. library(dplyr)
   
3. dictionary=c("橘子", "苹果" ,"水蜜桃", "香蕉", "砂糖橘", "荔枝")
   
4. user=c("用户1","用户2","用户3","用户4","用户5")
   
5. fruit=c("苹果杨桃香蕉草莓","香蕉橘子凤梨车厘子",
   
6.         "苹果香蕉橘子砂糖橘","橘子苹果荔枝水蜜桃","荔枝水蜜桃凤梨")
   
7. df=data.frame(user,fruit)
   
8. for (i in 1:length(dictionary)) {
   
9.   df[paste("fruit",i,sep = "")]=if_else(grepl(fruit,pattern = paste((".*"),dictionary[i],".*",sep="",collapse = "")),dictionary[i],"")
   
10.   }
    
11. write.csv(df,"d:/R/webtest.csv")

复制代码

caozhaowen 发表于 2020-2-27 23:08

非常感谢