word cloud : 부정적인 단어와 긍정적인 단어 표현하기

부정적인 단어는 gray,
긍정적인 단어는 green으로 표현하기

 

tidy_books %>%
dplyr::inner_join(tidytext::get_sentiments("bing")) %>%
dplyr::count(word, sentiment, sort = TRUE) %>%
reshape2::acast(word ~ sentiment, value.var = "n", fill = 0) %>%
wordcloud::comparison.cloud(colors = c("grey20", "green"), max.words = 100)

 

[ 출처] R로 배우는 텍스트마이닝, 줄리아 실기/데이비드 로빈슨 지음, 박진수 옮김, Jpub, p31