去除字符串中重复超过两次的字符

Question

5

我有这段文本：

F <- "hhhappy birthhhhhhdayyy"

我想去除重复字符，我尝试了以下代码

它可以工作，但如果字符重复超过2次，我需要将其删除，如果重复2次，则保留。

因此，我期望的输出是

"happy birthday"

任何帮助？

- Fatima

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Tim Biegeleisen · Accepted Answer

尝试使用sub，并使用模式(.)\\1{2,}：

F <- ("hhhappy birthhhhhhdayyy")
gsub("(.)\\1{2,}", "\\1", F)

[1] "happy birthday"

正则表达式的解释：

(.)          match and capture any single character
\\1{2,}      then match the same character two or more times

我们仅替换与单个匹配字符相符的内容。数量\\1表示sub中第一个捕获组。