如何去除纹理之间的单个空格

Question

这是给定的输入"S H A N N O N B R A D L E Y" （每个字母之间只有一个空格，香农和布拉德利之间只有两个空格） 我希望以以下格式输出

SHANNON BRADLEY

用R或Python实现这一点的任何方法

Answer 1

您可以在python中使用：

    import re
    s = "S H A N N O N  B R A D L E Y"
    ' '.join([''.join(i.split()) for i in re.split(r' {2,}',s)])

Answer 2

在R中尝试此操作

text <- c("S H A N N O N  B R A D L E Y")

gsub(" (?! )" , text , replacement = "" , perl = T)

这是另一个简单的方法

^{pr2}$

Answer 3

如果所有字母都被一个空格隔开，所有单词都被两个空格隔开，那么您可以这样做：

In [2]: "S H A N N O N  B R A D L E Y".replace('  ', '   ')[::2]
Out[2]: 'SHANNON BRADLEY'