Я пытаюсь автоматизировать часть моего кода, которая проверяет каждое слово в созданном мной словаре и возвращает это значение в отдельном столбце.
Ниже приведен фрагмент кода: это предыдущийнаписанный код руководства:
tokens$call <-ifelse(regexpr("(call )",tokens$review_text)>0,"call ","")
tokens$tech <-ifelse(regexpr("(tech )",tokens$review_text)>0,"tech ","")
tokens$techs<-ifelse(regexpr("(techs)",tokens$review_text)>0,"techs","")
tokens$support<-ifelse(regexpr("(support)",tokens$review_text)>0,"support","")
я пытаюсь его зациклить:
for(i in 1 :nrow(dict)){
tokens1$dict[i,1] <- ifelse(regexpr("[dict[i,1]]",tokens1$review_text)>0,"[dict[i,1]]","")
}
dict - это словарь, на который ссылаются.Я продолжаю получать вышеупомянутую ошибку.Любая помощь приветствуется