如何根据R中字典中的单词标记文本是正面的还是负面的？

Question

假设我有一个包含 cmets 的向量（数据框）（每一行是不同的注释）：

comment
'well done!'
'terrible work'
'quit your job'
'hi'

我有以下数据框，其中包含 positive 和 negative 单词（即字典）

positive negative
well     terrible
done     quit

R 中是否有一种方法可以使用此字典来标记第一个数据帧中的 cmets positive、negative 或 neutral，具体取决于它们是否包含更多或更少的正/负 cmets？

即我希望输出是一个看起来像这样的数据框：

comment          label
'well done!'     positive
'terrible work'  negative
'quit your job'  negative
'hi'             neutral

有谁知道如何在 R 中做到这一点？

Answer 1

这行得通吗：

library(dplyr)
library(stringr)
comm %>% mutate(label = case_when(str_detect(comments, str_c(dict$positive, collapse = '|')) ~ 'positive',
                                   str_detect(comments, str_c(dict$negative, collapse = '|')) ~ 'negative',
                                   TRUE ~ 'neutral'))
       comments    label
1    well done! positive
2 terrible work negative
3 quit your job negative
4            hi  neutral

根据 OP 的要求：

comm %>% mutate(p_count = str_count(comments, str_c(dict$positive, collapse = '|')), 
                 n_count = str_count(comments, str_c(dict$negative, collapse = '|'))) %>% 
           mutate(label = case_when(p_count > n_count ~ 'positive',
                                    p_count < n_count ~ 'negative',
                                    TRUE ~ 'neutral')) %>% select(comments, label)
                 comments    label
1              well done! positive
2      terrible well work  neutral
3 quit your job well well positive
4                      hi  neutral
5      terrible quit well negative

使用的新数据：

comm
                 comments
1              well done!
2      terrible well work
3 quit your job well well
4                      hi
5      terrible quit well

dict
# A tibble: 2 x 2
  positive negative
  <chr>    <chr>   
1 well     terrible
2 done     quit