Разбить предложение, в котором есть 2 одинаковых слова

Question

Мне нужно разделить слова в предложении, но здесь есть некоторые проблемы

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

Если вы посмотрите на приведенный выше код, sing и single - это 2 слова из моего списка

Теперь у меня есть предложение

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 "

Так как у меня в списке есть и пение, и одиночество.Код петь на самом деле.Есть ли где-нибудь разделить слова

Answer 1

Для этого особого случая просто переключите пробел в 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"

Однако я полагаю, что подход очень ограничен.А как насчет синглет ? sing , let и singlet - все значащие слова.