不做数据变换如何解决ggplot堆叠柱形图geom_text数值重叠问题

一、现有代码直接调整方案 #

• 方案1：开启自动去重标签
  给geom_text添加check_overlap = TRUE参数，ggplot会自动隐藏重叠的标签，仅保留可正常展示的内容：

  geom_text(aes(label = scales::number(Total_Count, big.mark = ',', accuracy = 1)), 
            size = 2, 
            position = position_stack(vjust = 0.5),
            check_overlap = TRUE)
  

• 方案2：隐藏极小值标签
  仅展示大于指定阈值的数值，过滤掉占比过小、没有足够展示空间的极小值（示例中阈值设为50，可按需调整）：

  geom_text(aes(label = ifelse(Total_Count >= 50, scales::number(Total_Count, big.mark = ',', accuracy = 1), "")), 
            size = 2, 
            position = position_stack(vjust = 0.5))
  

• 方案3：使用ggrepel包自动规避重叠
  替换原生geom_text为ggrepel::geom_text_repel，自动调整标签位置避免重叠，无需修改数据：

  # 先安装包：install.packages("ggrepel")
  library(ggrepel)
  # 替换原有geom_text代码
  geom_text_repel(aes(label = scales::number(Total_Count, big.mark = ',', accuracy = 1)),
                  size = 2,
                  position = position_stack(vjust = 0.5),
                  max.overlaps = Inf,
                  box.padding = 0,
                  segment.color = NA)
  

• 方案4：调整导出尺寸
  保存图表时增大画布高度，拉高柱子给标签留出足够空间：

  ggsave("堆叠柱形图.png", width = 8, height = 12, dpi = 300)
  

二、适配的其他可视化方案（均基于ggplot2实现） #

• 方案1：簇状柱形图
  把堆叠改为并排展示，每个种族的数值单独占一根柱子，完全避免堆叠导致的标签重叠问题：

  ggplot(data = milwaukee, aes(x = Age_Group, y = Total_Count, fill = Race)) +
    geom_bar(stat = 'identity', position = position_dodge(width = 0.9)) +
    labs(x = 'Age Group', y = 'Total Vaccinated by Age Group',
         title = 'Milwaukee Total Vaccinated by Age Group & Race') + 
    geom_text(aes(label = scales::number(Total_Count, big.mark = ',', accuracy = 1)), 
              size = 2, 
              position = position_dodge(width = 0.9, vjust = 0.5)) + 
    theme_classic() + 
    theme(text = element_text(size = 9, family = 'mono'), 
          legend.position = 'bottom',
          plot.title = element_text(hjust = 0.5, size = 11))
  

• 方案2：分面堆叠柱形图
  按种族分面展示，每个分面仅展示对应种族的各年龄组数值，空间充足不会出现标签重叠：

  ggplot(data = milwaukee, aes(x = Age_Group, y = Total_Count, fill = Race)) +
    geom_bar(stat = 'identity', position = 'stack') +
    facet_wrap(~Race, ncol = 2, scales = "free_y") +
    labs(x = 'Age Group', y = 'Total Vaccinated by Age Group',
         title = 'Milwaukee Total Vaccinated by Age Group & Race') + 
    geom_text(aes(label = scales::number(Total_Count, big.mark = ',', accuracy = 1)), 
              size = 2, 
              position = position_stack(vjust = 0.5)) + 
    theme_classic() + 
    theme(text = element_text(size = 9, family = 'mono'), 
          legend.position = 'bottom',
          plot.title = element_text(hjust = 0.5, size = 11))
  

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