R 中的 agrep 字符串匹配

Question

我有一些产品名称的两个列表。 我的问题是“操作系统”与“系统”、“冷却系统”等匹配。 但它只能与“Operating”、“OS”匹配。 另一个例子是“Key Board”应该与“key”或“KB”匹配，但不能与“Mother Board”或“Board”匹配。

如何重视第一个词而不是第二个词？

我在 R 中使用了agrep() 。它也匹配“系统”和“冷却系统”作为第一个例子。 如何避免这种匹配？

是否有任何功能/方法可以将“键盘”与“KB”和“操作系统”与“OS”相匹配？

提前致谢。

Answer 1

我为此编写了一个函数，不是最优化的方法，但这可以完成任务。 输入是向量而不是列表，希望这会有所帮助

stringMatch<-function(search.string,inputstring,pattern=" "){
stringsplit<-unlist(str_split(search.string,pattern))

firstletter<-c()
for(i in seq(1,length(stringsplit))){firstletter<-paste(firstletter,
substring(stringsplit[i],1,1),sep="")}
search.string.l<-tolower(search.string)
firstletter.l<-tolower(firstletter)

matchstring<-grep(paste("\\b",search.string.l,"\\b","|","\\b",firstletter.l,"\\b"
,sep=""),tolower(inputstring))
return(matchstring)
}

test1<-c('hello p','helbbo','hello test','HP')
search.string<-'HP'
[1] 4