Работаем над анализом некоторых комментариев с помощью R Studio. Сейчас я использую лексику Bing Sentiment из пакета tidytext.
У меня есть несколько дополнительных слов, которые я хочу добавить в 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
