string - 计算字符串中重叠子字符串的数量

Question

例子:

s <- "aaabaabaa"
p <- "aa"

我想返回 4，而不是 3(即，将初始 "aa" 中的 "aaa" 实例的数量计算为 2，而不是 1)。

有什么包可以解决吗？或者有没有办法在R中计数？

Answer 1

我相信

find_overlaps <- function(p,s) {
    gg <- gregexpr(paste0("(?=",p,")"),s,perl=TRUE)[[1]]
    if (length(gg)==1 && gg==-1) 0 else length(gg)
}


find_overlaps("aa","aaabaabaa")  ## 4
find_overlaps("not_there","aaabaabaa") ## 0 
find_overlaps("aa","aaaaaaaa")  ## 7

会做你想做的，这会更清楚地表达为“找到一个字符串中重叠子串的数量”。

这是 Finding the indexes of multiple/overlapping matching substrings 上的一个小变化