在 R 中向 Bing 个情感词典添加新词

Question

正在使用 R Studio 分析一些评论。我现在正在使用 tidytext 包中的 Bing 情感词典。

我有一些额外的词要添加到 Bing（运行时或离线）。例如，我可以用积极或消极或任何其他情绪的水平来添加它们。我该怎么做？

Answer 1

sentiment 是一个 tibble，所以添加新词只是一个 rbind :

additional_sentiment <- tibble(word=c("verygood","verybad"),
                               sentiment=c("positive","negative"))

new_sentiment <- get_sentiments("bing")%>%
                    rbind(additional_sentiment)

tail(new_sentiment)
# A tibble: 6 x 2
      word sentiment
     <chr>     <chr>
1   zenith  positive
2     zest  positive
3    zippy  positive
4   zombie  negative
5 verygood  positive
6  verybad  negative

joined <- austen_books() %>%
  unnest_tokens(word, text) %>%
  left_join(new_sentiment)

head(joined[!is.na(joined$sentiment),])
# A tibble: 6 x 3
                 book        word sentiment
               <fctr>       <chr>     <chr>
1 Sense & Sensibility respectable  positive
2 Sense & Sensibility        good  positive
3 Sense & Sensibility    advanced  positive
4 Sense & Sensibility       death  negative
5 Sense & Sensibility       great  positive
6 Sense & Sensibility        loss  negative

在 R 中向 Bing 个情感词典添加新词

Add new words to Bing sentiment Lexicon in R

r

rstudio

tidytext