geom_col()添加标签问题：皮马印第安人数据集柱状图标签模糊

问题场景 #

用MASS::Pima.te数据集绘制各数值特征（如age）对应type（No/Yes）的柱状图时，柱子上方的数值标签呈现为色块，完全无法看清文本内容。当前使用的代码如下：

MASS::Pima.te %>%
  dplyr::mutate(dplyr::across(-type, as.numeric)) %>%
  tidyr::pivot_longer(-type, names_to = "var", values_to = "value") %>%
  ggplot2::ggplot(aes(x = type, y = value)) +
  ggplot2::geom_col() +
  ggplot2::geom_text(aes(label = value), vjust = -2) +
  ggplot2::facet_wrap(~var, scales = "free") +
  ggplot2::labs(title = "Numerical values against y")

问题根源 #

你没对数据做聚合处理：geom_col默认会把每个type分组下的所有样本值求和生成柱子，但geom_text会为每一条样本都添加一个标签，大量标签重叠后就变成了色块。

修复代码 #

先按type和特征变量分组，计算对应统计量（这里和geom_col默认的求和逻辑保持一致），再绘图：

library(tidyverse)

MASS::Pima.te %>%
  mutate(across(-type, as.numeric)) %>%
  pivot_longer(-type, names_to = "var", values_to = "value") %>%
  # 按type和特征分组，计算每组的数值总和
  group_by(type, var) %>%
  summarise(total = sum(value), .groups = "drop") %>%
  ggplot(aes(x = type, y = total)) +
  geom_col() +
  # 每个柱子仅显示一个标签，避免重叠
  geom_text(aes(label = round(total, 1)), vjust = -0.3, size = 3) +
  facet_wrap(~var, scales = "free") +
  labs(title = "数值特征对应No/Yes的统计值", y = "总和")

可选优化 #

• 如果想展示均值而非总和，把summarise里的sum(value)改成mean(value)即可
• 调整geom_text的size（字体大小）、vjust（垂直位置）参数，避免标签超出图表或贴在柱子上
• 给标签加对比色（比如color = "darkred"），提升可读性

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