由非白色空间限制的逗号上的正则表达式匹配

Question

我正在尝试用非白色空格替换以白色空格为界的逗号，同时保持其他逗号不变（在R中）。

想象一下我有：

j<-"Abc,Abc, and c"

我希望：

"Abc Abc, and c"

这几乎有效：

gsub("[^ ],[^ ]"," " ,j)

但它删除了逗号两边的字符：

"Ab bc, and c"

Answer 1

您可以使用具有负面lookbehind和预测的PCRE正则表达式：

j <- "Abc,Abc, and c"
gsub("(?<!\\s),(?!\\s)", " ", j, perl = TRUE)
## => [1] "Abc Abc, and c"

请参阅regex demo

<强>详情：

• (?<!\\s) - 在,
之前不能有空格
• , - 文字,
• (?!\\s) - 在,
之后不能有空格

另一种解决方案是匹配用词边界包围的,：

j <- "Abc,Abc, and c"
gsub("\\b,\\b", " ", j)
## => [1] "Abc Abc, and c"

请参阅another R demo。

Answer 2

你可以使用这样的反向引用：

gsub("([^ ]),([^ ])","\\1 \\2" ,j)
[1] "Abc Abc, and c"

正则表达式中的()捕获逗号旁边的字符。 \\1和\\2按照捕获的顺序返回这些捕获的值。

Answer 3

我们可以尝试

gsub(",(?=[^ ])", " ", j, perl = TRUE)
#[1] "Abc Abc, and c"

Answer 4

也许它也有效：

library("stringr")
j<-"Abc,Abc, and c"
str_replace(j,"(\\w+),([\\w]+)","\\1 \\2")