0
我想通了近似machtes的位置在targetframe
与word.library
的帮助下用下面的代码:Regmatches在R中两个列表
tragetframe <- data.frame(words= c("Important Words",
"I would also Importante worde of thes substring",
"No mention of this crazy sayingsys"))
word.library <- data.frame(mainword = c("important word",
"crazy sayings"),
keyID =c("2000", "3000"))
##find position
find <- function(word.library, tragetframe) {
aregexec(word.library, tragetframe, max.distance = 0.1)
}
positions <- lapply(word.library[,1], find, tragetframe[,1])
后来我想提取匹配的子字符串,但它确实不工作:
extract <- function(tragetframe, positions) {
regmatches(tragetframe, positions)
}
extracted_machtes <- lapply(tragetframe[,1], extract, positions)
希望有人能帮我找到解决办法。