R中词云标题不显示及tidy情感分析对比词云绘制问题

问题1：Wordcloud标题无法显示/渲染 #

wordcloud包的核心函数（不管是wordcloud()还是comparison.cloud()）默认都不带内置标题参数，所以直接调用函数不会自动渲染标题。解决方法很简单，先绘制词云，再手动用title()函数添加标题，示例代码如下：

library(wordcloud)

# 先绘制基础词云（假设你已有term和freq数据）
wordcloud(words = dtm_tidy$term, freq = dtm_tidy$n, max.words = 200)
# 添加标题，可自定义样式
title(main = "我的自定义词云标题", col.main = "#2c3e50", cex.main = 1.5, font.main = 2)

如果是导出图片（比如PNG/PDF），要注意先打开绘图设备，绘制完成后再关闭，避免标题丢失：

png("my_wordcloud.png", width = 800, height = 600)
wordcloud(words = dtm_tidy$term, freq = dtm_tidy$n)
title(main = "导出的词云标题")
dev.off()

问题2：正面与负面情感对比词云（Comparison Cloud）代码完善 #

你提供的代码有几处需要补全和修正，我帮你整理了完整可运行的版本，同时标注了关键注意点：

library(reshape2)
library(tidytext)
library(wordcloud) # 必须加载！comparison.cloud属于这个包

# 假设dtm_tidy是你的tidy格式词频数据，包含term（词汇）和n（词频）列
dtm_tidy %>%
  # 过滤低频噪音词，根据你的数据调整阈值，比如保留词频>=3的词汇
  filter(n >= 3) %>%
  # 关联bing情感词典
  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(3, 0.5), # 调整词汇大小范围（原代码0.3会让所有词一样大，不合理）
    random.order = FALSE, # 按词频排序，不随机排列，提升可读性
    title.size = 1.2, # 控制"Positive"/"Negative"分组标题的大小
    rot.per = 0.2 # 可选：设置旋转词汇的比例，默认0.1
  )

# 添加整体大标题
title(main = "正面vs负面情感对比词云", cex.main = 1.3, col.main = "#2980b9")

关键注意事项： #

• 一定要加载wordcloud包，否则comparison.cloud()会报错；
• filter()必须加条件，否则大量低频噪音词会让词云杂乱无章；
• scale参数的两个值分别对应最大/最小词汇的大小，避免设置成相同值（比如原代码的c(0.3,0.3)），否则所有词汇尺寸一致，失去词云的意义；
• 如果对比云显示异常，检查inner_join后的结果：确保同时存在正面和负面词汇，且数量足够。

内容的提问来源于stack exchange，提问作者Lucinho91