使用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.
原文地址:https://www.jb51.cc/regex/356564.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。