R Regex/gsub:如何折叠字符串中的空格

scr*_*Owl 6 regex perl r gsub

我有一个从手写文件扫描的句子向量.在这个过程中有一些像这样的间距问题:

 The d og is br own.
Run Code Online (Sandbox Code Playgroud)

我很好奇是否有办法一般地使用任何模式'_x_'或空格 - 字符空间并折叠第二个空格,如下所示:

The d og is br own.  --> The dog is br own.
Run Code Online (Sandbox Code Playgroud)

我只担心空格之间的单个字符('_x_'NOT '_xx_').

有什么建议?

shh*_*its 4

或许

> x<-"The d og is br own."
> gsub(" (.) "," \\1",x)
[1] "The dog is br own."
Run Code Online (Sandbox Code Playgroud)

或者

gsub(" ([[:alnum:]]) "," \\1",x)
Run Code Online (Sandbox Code Playgroud)

(.)匹配任何内容([[:alnum:]]),仅匹配字母数字字符。