使用ggplot绘制带百分比标签的柱状图的最优实现方法

很棒的问题！你当前的实现已经能达到预期效果，但确实可以通过利用ggplot的内置统计功能来减少中间计算步骤，同时解决你遇到的stat(prop)与颜色填充不兼容的问题。

先快速还原你的可复现数据 #

首先把你提供的向量转成数据框方便后续操作：

library(ggplot2)
library(scales)
library(dplyr)

# 构建可复现数据框
lebanon <- data.frame(
  economy = structure(c(3L, 3L, 3L, 3L, 2L, 3L, 4L, 4L, 4L, 4L, 3L, 2L, 2L, 2L, 3L, 2L, 4L, 4L, 2L, 3L, 4L, 3L, 4L, 4L, 3L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 3L, 2L, 4L, 3L, 3L, 3L, 3L, 3L, 4L, 3L, 4L, 2L, 4L, 4L, 3L, 2L), 
                     .Label = c("Very good", "Good", "Bad", "Very bad", "Don't know"), 
                     class = "factor")
)

优化后的极简代码 #

这是不需要提前计算n和prop的方案，直接用ggplot的after_stat()获取统计后的比例值：

lebanon %>% 
  filter(!is.na(economy), economy != "Don't know") %>%
  ggplot(aes(x = economy, fill = economy)) +
  # 直接用stat_count计算比例，after_stat(prop)获取整体比例
  geom_bar(aes(y = after_stat(prop)), stat = "count", width = 0.9) +
  # 保持fill绑定economy，确保颜色映射正常
  scale_fill_manual(values = c("darkgreen", "green4", "red3", "red4")) +
  scale_y_continuous(labels = percent) +
  # 同样用after_stat(prop)生成百分比标签
  geom_text(aes(y = after_stat(prop), label = percent(after_stat(prop), suffix = "")),
            stat = "count", vjust = -0.5, size = 5) +
  labs(x = "", y = "", fill = "") +
  theme_minimal() +
  theme(axis.text.x = element_text(size = 15),
        axis.text.y = element_text(size = 15),
        legend.text = element_text(size = 15))

为什么这个方案更高效？ #

• 减少预处理步骤：省去了count()和mutate(prop = n/sum(n))的中间数据操作，直接在ggplot内部完成比例计算
• 解决颜色映射问题：保持fill = economy，让scale_fill_manual能正确识别分类变量并应用你指定的颜色（之前用fill="prop"会把填充映射到连续的比例值，自然无法匹配分类颜色）
• 清晰的统计逻辑：after_stat(prop)是ggplot 3.3.0+引入的语法（旧版本可以用..prop..），明确表示我们要使用统计计算后的比例值，默认是基于整个数据集的整体比例（因为x是分类变量，group默认设为1）

如果你更偏好dplyr预处理的简化版 #

如果你习惯先处理数据再绘图，也可以把计数和比例计算合并成一步：

lebanon %>% 
  filter(!is.na(economy), economy != "Don't know") %>%
  count(economy, wt = 1) %>% # wt=1等价于计数，直接生成n列
  mutate(prop = n / sum(n)) %>%
  ggplot(aes(economy, prop, fill = economy)) +
  geom_bar(stat = "identity", width = 0.9) +
  scale_fill_manual(values = c("darkgreen", "green4", "red3", "red4")) +
  scale_y_continuous(labels = percent) +
  geom_text(aes(label = percent(prop, suffix = "")), vjust = -0.5, size = 5) +
  labs(x = "", y = "", fill = "") +
  theme_minimal() +
  theme(axis.text.x = element_text(size = 15),
        axis.text.y = element_text(size = 15),
        legend.text = element_text(size = 15))

两种方案都能达到你要的效果，第一种利用ggplot内置统计的方式更简洁，减少了数据框的中间转换步骤。

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