拆分有 2 个相似单词的句子

我需要将句子中的单词分开，但这里有一些问题

word.list1 <- c("rose","location","criminal","lotus","check","sing","single")

如果你看上面的代码，sing 和 single 是我列表中的两个词

现在我有一句话

a <- "rosesinglelocationcriminalcheck"

以下代码将拆分单词

for (word in word.list) {
  a <- gsub(word, paste0(word, " "), a)     }

> a1

[1] "rose sing le location criminal check "

实际上我需要像下面这样的输出

> a1

[1] "rose single location criminal check "

自从我出生以来，我的名单里既有唱歌的，也有单曲的。该代码实际上正在运行。有没有地方可以分割单词

对于这种特殊情况，只需切换空格即可gsub:

word.list <- c("rose","location","criminal","lotus","check","sing","single")

a <- "rosesinglelocationcriminalcheck"
for (word in word.list) {
  a <- gsub(word, paste0(" ", word), a)     
}
a
#> [1] " rose  single location criminal check"

但我认为这种方法非常有限。关于什么singlet? sing, let and singlet都是有意义的话。