删除字母 [A-Za-z] 之间的空格

Question

如何删除字母而不是数字之间的空格

例如:

输入

I ES P 010 000 000 000 000 000 001 001 000 000 IESP 000 000

输出

IESP 010 000 000 000 000 000 001 001 000 000 IESP 000 000

我试过这样的事情

gsub("(?<=\\b\\w)\\s(?=\\w\\b)", "", x,perl=T)

但无法达到我希望的输出

Answer 1

使用 gsub替换空格 " "一无所有 ""字母之间然后返回替换和字母。

Input <- "I ES P 010 000 000 000 000 000 001 001 000 000 IESP 000 000"
gsub("([A-Z]) ([A-Z])", "\\1\\2", Input)
[1] "IESP 010 000 000 000 000 000 001 001 000 000 IESP 000 000"

编辑后 @Wiktor Stribiżew评论(替换 [A-z] 到 [a-zA-Z]):

对于小写和大写使用 [a-zA-Z]

Input <- "I ES P 010 000 000 000 000 000 001 001 000 000 IESP 000 000 aaa ZZZ"
gsub("([a-zA-Z]) ([a-zA-Z])", "\\1\\2", Input)
[1] "IESP 010 000 000 000 000 000 001 001 000 000 IESP 000 000 aaaZZZ"