在R中返回包含三个连续双字母的单词(例如bookkeeper)

# 导入正则表达式库
library(stringr)

# 定义一个函数，用于返回包含三个连续双字母的单词
find_words <- function(text) {
  # 使用正则表达式匹配三个连续双字母的单词
  words <- str_extract_all(text, "\\b\\w*(\\w{2})\\1\\w*\\b")
  
  # 返回匹配到的单词
  return(words[[1]])
}

# 示例文本
text <- "bookkeeper is a word with three consecutive double letters. However, apple does not have any."

# 调用函数，查找包含三个连续双字母的单词
result <- find_words(text)

# 打印结果
print(result)

[1] "bookkeeper"