从r中的文本列表中的单词列表中的确切匹配

基本上，我有一个单词列表，我正在寻找文本中存在的单词。所需的结果是，在搜索模式时，总是找到最后一列。我正在寻找单词中存在的确切匹配。我不想要组合。对于前三个记录，应该找不到。

col_1 <-c（1,2,3,4,5）

col_2 < - c（“工作说明更改”，

“技术NPI检查”，

“功能位置”，

“施工已经开始”，

“将会有constn coon”）

df < - as.data.frame（cbind（col_1，col_2））

df $ col_2 < - tolower（DF $ col_2）

单词<-c（“ const”，“ constn”，“约束”，“ conduc”，

“构造”，“构造”，“构造”，“ consttntype”，“ constypes”，“ ct”，“ ct＃”，“

“ CT2”

）

pattern_words < - 粘贴（单词，collapse =“ |”）

df $ result < - ifelse（str_detect（df $ col_2，regex（pattern_words）），“找到”，“找不到”）