r - 如何将单词中的字符重复限制为 2？

Question

我想删除在一个单词中重复两次以上的字符。例如

 "hhaaappppyyyyyyy mmoooooorning friendsssssssssssssss, good goood day"

到

 "hhaappyy mmoorning friendss, good good day"

我已经尝试过这样的事情，但它并没有减少到恰好 2 次重复。

gsub('([[:alpha:]])\\1{2}', '\\1', 
   'hhaaappppyyyyyyy mmoooooorning friendsssssssssssssss, good goood day')

#[1] "hhappyyy mmoorning friendsssss, good god day"

谢谢你。

Answer 1

您需要使用 {2,}量词并使用两个 \1在替换中:

s<-'hhaaappppyyyyyyy mmoooooorning friendsssssssssssssss, good goood day'
gsub('([[:alpha:]])\\1{2,}', '\\1\\1', s)
# => [1] "hhaappyy mmoorning friendss, good good day"

见 R demo .
([[:alpha:]])\\1{2,}模式匹配并将一个字母捕获到第 1 组，然后匹配相同字符的 2 个或更多重复。两个 \1在替换模式中，将整个匹配替换为 2 次出现的字符。使用两个 \1 有效占位符，因为每个匹配项至少有 3 个相同的字符。