3

亲爱的 Stackoverlow 人群

我设法使用 qdap 极性函数来计算一些博客条目的极性，加载我自己的字典，基于 sentiWS。现在我确实有一个新的情感词典（SePL），它不仅包含单个单词，还包含短语。例如“simply good”，其中“simply”既不是否定词也不是放大器，而是使其更精确。所以我想知道，我是否可以使用 qdap 的极性函数搜索 ngram。

举个例子：

library(qdap)
phrase <- "This is simply the best"
key <- sentiment_frame(c("simply", "best", "simply the best"), "", c(0.1,0.3,0.8))
counts(polarity(phrase, polarity.frame=key))

给出：

  all wc polarity    pos.words neg.words                text.var
1 all  5    0.179 simply, best         - This is simply the best

但是，我想得到如下输出：

  all wc polarity    pos.words neg.words                text.var
1 all  5    0.76 simply the best         - This is simply the best

任何人都知道如何让它像那样工作？

一切顺利，本

4

1 回答 1

2

bag_o_word这是今年早些时候对该功能进行更改后重新引入的错误。这是此类错误第二次影响 ngram 极性，因为我在 polar.frame 中启用了 ngram 的使用：https ://github.com/trinker/qdap/issues/185

我已经修复了这个错误并添加了一个单元测试以确保这个错误不会重新回到代码中。您在 qdap 2.2.1 中的代码现在给出了所需的输出，尽管针对算法初衷的警告仍然存在：

> library(qdap)
> phrase <- "This is simply the best"
> key <- sentiment_frame(c("simply", "best", "simply the best"), "", c(0.1,0.3,0.8))
> counts(polarity(phrase, polarity.frame=key))

  all wc polarity       pos.words neg.words                text.var
1 all  5    0.358 simply the best         - This is simply the best

qdap的polarity函数使用的算法并非旨在像这样运行。您可以使用以下技巧来做到这一点，但要知道这不符合函数算法中使用的基础理论的意图：

library(qdap)
phrase <- "This is simply the best"

terms <- c("simply", "best", "simply the best")
key <- sentiment_frame(space_fill(terms, terms, sep="xxx"), NULL, c(0.1,0.3,0.8))

counts(polarity(space_fill(phrase, terms, "xxx"), polarity.frame=key))

##   all wc polarity           pos.words neg.words                    text.var
## 1 all  3    0.462 simplyxxxthexxxbest         - This is simplyxxxthexxxbest
于 2014-11-26T21:07:52.343 回答