使用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的另一个想法. pre函数在替换之前运行,并且为每个替换运行fun函数：
library(gsubfn)
x <- "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,7"
这种变化会给出相同的答案,因为gsubfn维护一个计数变量用于proto函数：
pp <- proto(fun = function(...) count)
gsubfn("\\w+",pp,x)
有关使用count的示例,请参阅gsubfn vignette.
