R语言朴素贝叶斯分类器找vocabulary时出现问题，程序无限制运行

问题遇到的现象和发生背景

在写R语言朴素贝叶斯分类器的时候，要求把在多于三行text上出现的单词存入vocabulary中，我尝试用三层循环遍历所有text，但是程序运行时间远远超出正常范围，加入tcktl包查看进度也一直没有反应，整个数据有八千多行，但是查看前几十行的时候还算正常运行，不知道是哪里出了问题

问题相关代码，请勿粘贴截图

vocab = character()

findVocab = function(len,data){ #data是数据框中的一列
i = 1
j = 2
k = 3
while(i<=len-2){
while(j<=len-1){
while(k<=len){
a = as.vector(unlist(data[i]))
b = as.vector(unlist(data[j]))
c = as.vector(unlist(data[k]))
d = intersect(a,b)
e = intersect(d,c)
vocab <<- c(vocab,e)
k = k+1

}
j = j+1
k = j+1

}
i = i+1
j = i+1
}
}

运行结果及报错内容

运行时间过长，怀疑代码出了问题

我的解答思路和尝试过的方法

尝试三层循环遍历不同组合，用intersect取交集并把交集中单词加入vocabulary，最后去除vocabulary中重复元素

我想要达到的结果

正常输出vocabulary

是不是代码写错了