我在R中有几个类似的字符向量:
a <- "text text NOTE 3/1"
b <- "text NOTE 4.3%"
它们都有一个已知的单词-NOTE-后面跟着不同数量的空格和其他字符.
我想要做的是找到字符串中NOTE和其他字符之间的空格，然后用另一个字符替换每个空格-比如说@
所需输出将为:
"text text NOTE@@@@@@3/1"
"text NOTE@@@4.3%"
到目前为止，我只能找到找到NOTE及其后面的空格的正则表达式.
c <- gsub("NOTE\\s+", "@", a)
c
[1] "@3/1"
您可以使用
gsub("(?:\\G(?!^)|NOTE)\\K\\s", "@", a, perl=TRUE)
请看R demo.com/r/QQNbAV/2" rel="nofollow noreferrer">regex demo和R demo.
a <- "text text NOTE 3/1"
b <- "text NOTE 4.3%"
gsub("(?:\\G(?!^)|NOTE)\\K\\s", "@", a, perl=TRUE)
# => [1] "text text NOTE@@@@@@3/1"
gsub("(?:\\G(?!^)|NOTE)\\K\\s", "@", b, perl=TRUE)
# => [1] "text NOTE@@@4.3%"
Details:
(?:\G(?!^)|NOTE)-上一次成功匹配的结束或NOTE\K-丢弃目前为止匹配的文本的匹配重置运算符\s-一个空格字符.下面是一个stringr版本，其中NOTE之后匹配的空格在function(x) str_replace_all(x, "\\s", "@")回调函数中分别替换为@个字符:
library(stringr)
stringr::str_replace_all(a, "NOTE\\s+", function(x) str_replace_all(x, "\\s", "@"))
# => [1] "NOTE@@@@@@3/1"
stringr::str_replace_all(b, "NOTE\\s+", function(x) str_replace_all(x, "\\s", "@"))
# => [1] "NOTE@@@4.3%"