ggplot2柱状图百分比标签未正确显示于柱顶问题求助

我来帮你搞定这个百分比标签的问题～你遇到的百分比异常/不显示在柱形上方的问题，核心是两个点，我一步步给你拆解和修复：

1. y坐标不匹配：你的y轴是「计数（Count）」，但geom_text里把y设为..prop..——这个变量是0到1之间的比例值，和柱形的计数高度（比如10、15这种整数）完全不在一个量级，所以文本会被压到图表底部（甚至直接看不见），根本到不了柱形上方。
2. 百分比计算未正确分组：默认情况下stat="count"计算的..prop..是全局比例，但你用了facet_grid(vs ~ .)分面，需要的是每个分面内的局部百分比，没指定分组的话，百分比计算会出错。

我给你调整了代码，关键修改了geom_text的y坐标和百分比计算逻辑，同时保留你要的y轴为计数的需求：

library(ggplot2)
library(scales)

p1 <- ggplot(mtcars, aes(x = cyl)) +
  geom_bar(aes(fill = vs), stat = "count") +
  # 核心修改的geom_text部分
  geom_text(
    aes(
      # 手动计算分面内的百分比，更可控
      label = percent(after_stat(count / sum(count))),
      # 用柱形的实际计数高度作为y基准，加偏移让文本在柱形上方
      y = after_stat(count) + 0.3
    ),
    stat = "count",
    vjust = 0  # 调整垂直对齐，让文本底部贴住柱形顶部
  ) +
  theme_classic() +
  ylab("Count") +
  facet_grid(vs ~ .)

print(p1)

• y坐标修正：把原来的y = ..prop..改成after_stat(count) + 0.3，after_stat(count)就是柱形的实际高度，加0.3是给文本留一点间距（你可以根据图表大小调整这个偏移量，比如改成0.5），确保文本稳稳出现在柱形上方。
• 百分比计算修正：用after_stat(count / sum(count))手动计算每个柱形在当前分面内的占比，比依赖默认的..prop..更不容易出错。如果你习惯用..prop..，也可以改成下面这样，只要指定group = vs确保是分面内的比例：

  geom_text(
    aes(
      label = percent(after_stat(prop)),
      y = after_stat(count) + 0.3,
      group = vs
    ),
    stat = "count",
    vjust = 0
  )
  

• 垂直对齐优化：把vjust = -0.5改成vjust = 0，这样文本的底部刚好对齐柱形顶部，排版更整洁（如果偏移量足够大，也可以保留-0.5，看你喜欢的样式）。

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