ggplot2绘图求助：Y轴标签错误及geom_text标签间距过大修正

问题根源分析 #

1. Y轴显示分组而非计数：原代码中geom_text(aes(y=g))把Y轴映射成了分组变量g，覆盖了geom_bar默认的计数Y轴，导致Y轴变成离散的分组值。
2. 标签间距过大：直接用g作为Y坐标，每个分组占据独立的离散位置，自然间距拉得很开，无法紧凑堆叠。

解决方案代码 #

我们先通过数据汇总确定每个柱子的总计数，再给每个分组标签分配紧凑的堆叠位置，同时指定标签顺序：

library(ggplot2)
library(dplyr)

# 原始数据
df <- data.frame(x=c("A","C","D","A","A","B","C","D"), g=c("G1","G1","G1","G2","G3","G3","G3","G3"))

# 汇总数据：统计每个x下各g的出现次数，计算标签堆叠位置并指定顺序
df_summary <- df %>%
  count(x, g, name = "count") %>%
  group_by(x) %>%
  mutate(
    total = sum(count),  # 每个x对应的总计数（柱子高度）
    g = factor(g, levels = c("G3", "G2", "G1")),  # 指定标签显示顺序
    y_pos = total + 0.2 * row_number()  # 标签堆叠的Y坐标，0.2是紧凑间距，可调整
  ) %>%
  ungroup()

# 绘图
ggplot(df, aes(x)) +
  geom_bar(fill = "#619CFF") +  # 可自定义柱子颜色
  geom_text(
    data = df_summary,
    aes(x = x, y = y_pos, label = g),
    size = 3.5,  # 标签字号
    color = "#333333"
  ) +
  ylim(0, max(df_summary$y_pos) + 0.2) +  # 扩展Y轴范围，避免标签被截断
  labs(y = "计数")  # 给Y轴加标签

代码说明 #

• 数据汇总时用count()统计每个x和g的组合出现次数，group_by(x)计算每个柱子的总高度。
• 通过factor(g, levels = c("G3", "G2", "G1"))强制指定标签的堆叠顺序，确保第一个柱子上方按G3→G2→G1排列。
• y_pos = total + 0.2 * row_number()让标签从柱子顶部开始，每次往上偏移0.2个单位，实现紧凑堆叠，这个偏移量可以根据需求调整（比如改成0.1更紧凑，0.3更宽松）。
• 用ylim()扩展Y轴范围，防止最上方的标签被绘图区域截断。

另一种简化方案（无需提前汇总） #

如果不想手动汇总数据，可以用stat_count自动计算位置，结合position_stack实现堆叠：

library(ggplot2)

df <- data.frame(x=c("A","C","D","A","A","B","C","D"), g=c("G1","G1","G1","G2","G3","G3","G3","G3"))

ggplot(df, aes(x)) +
  geom_bar(fill = "#619CFF") +
  geom_text(
    aes(label = g, group = factor(g, levels = c("G3", "G2", "G1"))),
    stat = "count",
    position = position_stack(vjust = 1.1),  # vjust控制标签在柱子上方的位置
    size = 3.5,
    color = "#333333"
  ) +
  ylim(0, max(table(df$x)) + 0.5) +
  labs(y = "计数")

这个方案依赖stat_count自动计算每个分组的位置，通过group参数指定标签顺序，vjust=1.1让标签刚好落在柱子顶部上方，堆叠效果同样紧凑。

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