使用不同的替换顺序替换字符串中与单个模式匹配的多个位置

Using stringr包中，很容易以矢量化方式执行正则表达式替换。

问题：我该如何执行以下操作：

替换中的每个单词

hello,world??your,make|[]world,hello,pos

不同的替代品，例如数量不断增加

1,2??3,4|[]5,6,7

请注意，不能假设简单的分隔符，实际用例更为复杂。

stringr::str_replace_all似乎不起作用，因为它

str_replace_all(x, "(\\w+)", 1:7)

为应用于所有单词的每个替换生成一个向量，或者它具有 不确定和/或重复的输入条目，以便

str_replace_all(x, c("hello" = "1", "world" = "2", ...))

不会达到目的。

这是另一个使用的想法gsubfn. The pre函数在替换之前运行fun每次替换都会运行函数：

library(gsubfn)
x <- "hello,world??your,make|[]world,hello,pos"
p <- proto(pre = function(t) t$v <- 0, # replace all matches by 0 
           fun = function(t, x) t$v <- v + 1) # increment 1 
gsubfn("\\w+", p, x)

这使：

[1] "1,2??3,4|[]5,6,7"

这种变化会给出相同的答案，因为 gsubfn 维护count在原型函数中使用的变量：

pp <- proto(fun = function(...) count)
gsubfn("\\w+", pp, x)

有关使用示例，请参阅 gsubfn 小插图count.