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

Question

如何删除字母NOT数字之间的空格

例如:

输入

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"

在@WiktorStribiż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"