我正在尝试使代码的一部分自动化，该代码检查由我创建的词典中的每个单词，并在单独的列中返回该值。
下面是代码片段： 这是先前编写的手动代码：
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是所引用的字典。我不断收到上述错误。任何帮助表示赞赏