[英]Add new words to Bing sentiment Lexicon in R
使用R Studio分析一些注释。 我现在正在使用来自tidytext包的Bing Sentiment词典。
我还有一些其他的话要添加到Bing(运行时或离线)。 例如,我可以添加积极性或消极性或任何其他情绪。 我怎样才能做到这一点?
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.