我正在尝试对报纸文章进行情绪分析,并追踪整个时间段的情绪水平。要做到这一点,基本上我会在一天内识别所有相关的新闻文章,将它们输入极性()函数并获得所有文章的平均极性分数(更确切地说,所有文章中所有句子的平均值)在那一天。
问题是,在某些日子里,与其他日子相比,会有更多文章,如果我们只是跟踪每日平均极性评分,我认为这可能会掩盖一些信息。例如,30篇新闻文章的评分为0.1,与仅3篇文章的评分为0.1相比,应该具有更高的权重。可以肯定的是,我获得的一些极端极性分数来自几天没有相关文章。
反正我是否可以每天考虑不同数量的文章?
library(qdap)
sentence = c("this is good","this is not good")
polarity(sentence)
答案 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