-1

因此,我使用 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 但没有什么可以解决这个问题。

有人有想法吗?

4

2 回答 2

1

我遇到了类似的问题——当我尝试将其保存为 pdf 时,标题在渲染图的顶部和底部被截断。

通过使用“纵向”方向而不是“横向”,我能够获得正确的绘图输出。我不确定为什么这解决了这个问题,但是在将其保存为 pdf 或图像时确实如此。

于 2018-09-26T14:28:25.437 回答
1

我找到了问题的答案:如果您遇到此问题,请使用fixed.asp=TRUE命令。像这样的东西:

comparison.cloud(colors = c("darkred", "darkgreen"), max.words=300, scale = c(0.3, 0.3), random.order=FALSE, rot.per=0.25,fixed.asp=TRUE,title.size = 1)

这应该可以解决问题!:)

于 2018-03-19T13:17:15.950 回答