r - 在字符串 : R 中搜索特殊模式

Question

我想知道 1 包围的 0 的数量。但如果有多个 0 且未被 1 中断，则仅算作 1。

string <- "1101000010101111001110"

这是我能做的最接近的:

length(gregexpr(pattern ="101",string)[[1]])

预期输出:

5

Answer 1

通过 gregexpr，您可以使用带有 perl=True 的先行断言来查找重叠匹配:

(?=...) 是 lookahead assertion :

(?=...)

A zero-width positive lookahead assertion. For example, /\w+(?=\t)/ matches a word followed by a tab, without including the tab in $&.

length(gregexpr("(?=10+1)", string, perl=TRUE)[[1]])