所以我使用整洁的原则进行了情绪分析。我想在比较云中绘制结果（正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)
然而，似乎出现了问题，因为标题（正面和负面）没有显示或呈现。我已经改变了scale和title.size，但没有什么能解决这个问题。
有人有想法吗？
答案 0 :(得分：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)
这应该可以做到！ :)
答案 1 :(得分：0)
我有一个类似的问题-当我尝试将其保存为pdf时，标题在渲染图的顶部和底部被切除。
通过使用“纵向”方向而不是“横向”，我能够获得正确的绘图输出。我不确定为什么可以解决此问题，但是将其另存为pdf或图像时确实可以解决。