因此,我使用 tidy 原则进行了情绪分析。我想将结果绘制在比较云中(正面 VS 负面情绪)。
这是我的代码:
library(reshape2)
library(tidytext)
dtm_tidy %>%
filter()
dtm_tidy %>%
inner_join(get_sentiments("bing"),by=c(term="word")) %>%
count(term, sentiment, sort=TRUE) %>%
acast(term ~ sentiment, value.var = "n", fill = 0) %>%
comparison.cloud(colors = c("darkred", "darkgreen"), max.words=300, scale = c(0.3, 0.3), random.order=FALSE, rot.per=0.25, title.size = 1)
但是,似乎出了点问题,因为标题(正面和负面)没有显示或呈现。我已经更改了 scales 和 title.size 但没有什么可以解决这个问题。
有人有想法吗?