如何查找R中字符串之间相同的短语

# 示例字符串向量
strings <- c("I love apples and oranges", "Apples are delicious", "Oranges are juicy", "I like eating apples")

# 拆分字符串为单词向量
words <- strsplit(strings, " ")

# 初始化结果向量
common_phrases <- character()

# 遍历字符串向量
for (i in 1:length(strings)) {
  # 遍历其他字符串
  for (j in (i+1):length(strings)) {
    # 查找相同的短语
    common <- intersect(words[[i]], words[[j]])
    # 将相同的短语添加到结果向量
    common_phrases <- c(common_phrases, common)
  }
}

# 去除重复的短语
common_phrases <- unique(common_phrases)

# 打印结果
print(common_phrases)