regex - 在字符串中的正则表达式匹配后插入计数器

Question

在字符串匹配后插入计数器

我试图在字符串中的每个匹配项之后插入一个计数后缀。

例如: 在以下字符串中每个匹配的“o”后插入一个数字:

"The Apollo program was conceived early in 1960"

看起来像:

"The Apo1llo2 pro3gram was co4nceived early in 1960"

我想我应该将 gsub 与 perl = TRUE 一起使用，但不知道如何使用。

string <- "The Apollo program was conceived early in 1960"

gsub( x = string, pattern = "(o)", replacement = "\\1 $count", perl = TRUE )

Answer 1

这是一个使用 gregexpr 、 regmatches 和 regmatches<- 强大组合的选项:

x <- c("The Apollo program was conceived early in 1960",
       "The International Space Station was launched in 1998")

m <- gregexpr("(?<=o)", x, perl=TRUE)
regmatches(x,m) <- lapply(regmatches(x,m), seq_along)

x
# [1] "The Apo1llo2 pro3gram was co4nceived early in 1960"    
# [2] "The Internatio1nal Space Statio2n was launched in 1998"