R中Likert条形图百分比重叠问题及参数优化咨询

问题描述 #

我已使用likert包成功为调研数据生成发散堆叠条形图，但其中S8问题的百分比出现重叠现象。我尝试使用zero.print = TRUE参数移除0%以优化图表清晰度，避免百分比重叠，但此时数字消失，百分号仍保留。请问如何解决该重叠问题？是否可通过为likert函数添加ggplot扩展实现？另外，若使用zero.print参数，能否移除百分号？

解决方法 #

1. 解决百分比重叠问题

• 缩小标签字体：调用likert()绘图时，添加text.size参数减小字体尺寸，比如plot(likert_obj, text.size = 3)，通过减少标签占用空间避免重叠。
• 预处理过滤零值类别：在生成likert对象前，筛选掉S8问题中占比为0的选项，从源头消除零值标签，自然避免重叠。
• 用ggplot2语法自定义标签：likert绘图基于ggplot2，可手动控制标签内容。示例代码：

  # 生成likert对象
  likert_data <- likert(df)
  # 提取绘图数据
  plot_data <- ggplot_build(plot(likert_data))$data[[2]]
  # 过滤零值标签，仅保留非零百分比文本
  plot_data$label <- ifelse(plot_data$value == 0, "", plot_data$label)
  # 重新绘制图表并替换标签
  library(ggplot2)
  plot(likert_data) + geom_text(data = plot_data, aes(label = label), size = 3)
  

2. 移除零值标签的百分号

直接设置zero.print = ""即可完全移除零值位置的所有内容（包括数字和百分号），替代zero.print = TRUE。示例：

plot(likert_obj, zero.print = "")

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