如何在facet_grid()分组的ggplot条形图中正确调整百分比小数位数

这个问题我之前也碰到过，核心原因是stat_count默认会基于整个数据集计算总数，而不是每个分面内部的总数，所以你的百分比才会显示错误。咱们一步步来修复，同时满足你调整小数位数、保留y轴整数计数的需求：

关键思路 #

要让百分比在每个分面内独立计算，需要给geom_text的aes指定group = vs，告诉统计函数按分面的分组（也就是vs的取值）来计算总数；同时用scales::percent的accuracy参数直接控制小数位数，比手动round更稳妥，不会破坏数值准确性。

修正后的完整代码 #

library(ggplot2)
library(scales)

p_final <- ggplot(mtcars, aes(x = cyl)) +
  # 保留原有的条形图逻辑
  geom_bar(aes(fill = vs), stat = "count") +
  # 核心修正：分面内计算百分比+控制小数位数
  geom_text(
    aes(
      label = percent(after_stat(count / sum(count)), accuracy = 0.1), # accuracy=0.1保留1位小数，可按需调整
      y = after_stat(count) + 0.3, # 基于计数定位文本，避免和y轴刻度冲突
      group = vs # 强制按分面分组计算总数
    ),
    stat = "count",
    vjust = 0
  ) +
  theme_classic() +
  ylab("Count") +
  facet_grid(vs ~ .) +
  ylim(0, 15) # 保持原y轴范围

print(p_final)

代码细节解释 #

1. group = vs：这是解决分面百分比错误的核心，让stat_count在计算sum(count)时，只统计当前分面内的样本总数，而不是全局总数。
2. percent(..., accuracy = 0.1)：用scales包自带的百分比格式化函数，accuracy参数直接控制精度：
   • accuracy = 1：显示整数百分比（如67%）
   • accuracy = 0.1：保留1位小数（如66.7%）
   • accuracy = 0.01：保留2位小数（如66.67%）
3. y = after_stat(count) + 0.3：文本位置基于柱子的实际计数调整，避免和y轴的整数刻度重叠，比用比例定位更符合y轴的计数逻辑。

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