将情感列添加到 r 中的数据集

Question

我在 r 中做了一些基本的情感分析，想知道是否有办法分析句子或行的情感，然后在列中附加句子的情感。到目前为止，我所做的所有分析都为我提供了情绪的概述或提取了特定的词，但没有链接回原始数据行

我的数据输入将通过 BI 软件输入，看起来如下所示，带有案例编号和一些文本：

"12345","I am extremely angry with my service"
"23456","I was happy with how everything turned out"
"34567","The rep did a great job helping me"

我希望它作为下面的输出返回

"12345","I am extremely angry with my service","Anger"
"23456","I was happy with how everything turned out","Positive"
"34567","The rep did a great job helping me","Positive"

我们将不胜感激任何指向正确方向的包或资源！

Answer 1

您在使用句子时遇到的问题是情感词典是基于单词的。如果您查看 nrc 词典，“愤怒”一词具有三个情感值：愤怒、厌恶和消极。你选择哪一个？或者您的句子返回词典中的多个单词。尝试用你的文本测试不同的词典，看看会发生什么，例如tidytext。

如果想要一个可以在句子级别分析情绪的软件包，您可以查看sentimentr。您不会得到像愤怒这样的情绪值，而是情绪/极性分数。有关sentimentr 的更多信息，请访问package documentation 和sentimentr github 页面。

一个小示例代码：

library(sentimentr)
text <- data.frame(id = c("12345","23456","34567"),
                   sentence = c("I am extremely angry with my service", "I was happy with how everything turned out", "The rep did a great job helping me"),
                   stringsAsFactors = FALSE)



sentiment(text$sentence)
   element_id sentence_id word_count  sentiment
1:          1           1          7 -0.5102520
2:          2           1          8  0.2651650
3:          3           1          8  0.3535534

# add sentiment score to data.frame
text$sentiment <- sentiment(text$sentence)$sentiment 

text
     id                                   sentence  sentiment
1 12345       I am extremely angry with my service -0.5102520
2 23456 I was happy with how everything turned out  0.2651650
3 34567         The rep did a great job helping me  0.3535534