用不同数量的文件进行情绪分析

时间:2015-01-21 01:08:33

标签: r sentiment-analysis qdap

我正在尝试对报纸文章进行情绪分析,并追踪整个时间段的情绪水平。要做到这一点,基本上我会在一天内识别所有相关的新闻文章,将它们输入极性()函数并获得所有文章的平均极性分数(更确切地说,所有文章中所有句子的平均值)在那一天。

问题是,在某些日子里,与其他日子相比,会有更多文章,如果我们只是跟踪每日平均极性评分,我认为这可能会掩盖一些信息。例如,30篇新闻文章的评分为0.1,与仅3篇文章的评分为0.1相比,应该具有更高的权重。可以肯定的是,我获得的一些极端极性分数来自几天没有相关文章。

反正我是否可以每天考虑不同数量的文章?

library(qdap)
sentence = c("this is good","this is not good")
polarity(sentence)

1 个答案:

答案 0 :(得分:2)

我会警告说,有时用一些单词说一些强有力的东西可能会打得最多。确保您所做的事情在您的数据和研究问题方面有意义。

一种方法是使用单词数,如下例所示(我更喜欢第一种方法):

poldat2 <- with(mraja1spl, polarity(dialogue, list(sex, fam.aff, died)))

output <- scores(poldat2)
weight <- ((1 - (1/(1 + log(output[["total.words"]], base = exp(2))))) * 2) - 1
weight <- weigth/max(weight)
weight2 <- output[["total.words"]]/max(output[["total.words"]])

output[["weighted.polarity"]] <- output[["ave.polarity"]] * weight   
output[["weighted.polarity2"]] <- output[["ave.polarity"]] * weight2   
output[, -c(5:6)]


##    sex&fam.aff&died total.sentences total.words ave.polarity weighted.polarity weighted.polarity2
## 1       f.cap.FALSE             158        1641        0.083       0.143583793        0.082504197
## 2        f.cap.TRUE              24         206        0.044       0.060969157        0.005564434
## 3       f.mont.TRUE               4          29        0.079       0.060996614        0.001397106
## 4       m.cap.FALSE              73         651        0.031       0.049163984        0.012191207
## 5        m.cap.TRUE              17         160       -0.176      -0.231357933       -0.017135804
## 6     m.escal.FALSE               9         170       -0.164      -0.218126656       -0.016977931
## 7      m.escal.TRUE              27         590       -0.067      -0.106080866       -0.024092720
## 8      m.mont.FALSE              70         868       -0.047      -0.078139272       -0.025099276
## 9       m.mont.TRUE             114        1175       -0.002      -0.003389105       -0.001433481
## 10     m.none.FALSE               7          71        0.066       0.072409049        0.002862997
## 11  none.none.FALSE               5          16       -0.300      -0.147087026       -0.002925046