删除以 R 中出现次数为条件的空格

Question

当 2 个非空白字符单词之间的连续空格数小于某个数量时，我想从字符串中删除空格。

例如，

a <- c("I want            only                <5                         white-spaces   removed")

我知道我可以使用 gsub(' ', '', a) 删除所有空格.但是，只有当总空格小于 5 时，我才想删除两个非空格字符之间的空格。所以我想要以下内容

a_adj <- c("Iwant             only                <5                         white-spacesremoved")

我试过这个 gsub('{,5} ', '', a) .但它仍然删除所有空格。有人可以帮忙吗？

谢谢

Answer 1

您可以使用

a_adj <- gsub("(?<=\\S)\\s{1,4}(?=\\S)", "", a, perl=TRUE)

见 regex demo和 R demo .
(?<=\S)\s{1,4}(?=\S)仅在任何非空格字符之间匹配 1 到 4 个空格。

详情

(?<=\S) - 一个正向后视，需要在当前位置的左侧立即有一个非空白字符

\s{1,4} - 1 到 4 个空白字符

(?=\S) - 正向前瞻，需要在当前位置的右侧紧接一个非空白字符。