如何在ggplot水平条形图外侧末端放置独立于填充的完成率标签

问题场景 #

现有数据集结构如下：

State      Number of Students Rate Denominator Status        Label
1     CT                   4500 0.471        8500 Completed     47.1%
2     CT                   4000 0.471        8500 Not Completed <NA>
3     OK                   4375 0.653        6700 Completed     65.3%
4     OK                   2325 0.653        6700 Not Completed <NA>
5     TX                   5040 0.70         7200 Completed     70.0%
6     TX                   2160 0.70         7200 Not Completed <NA>

使用以下ggplot代码绘制水平条形图，以Status为填充依据展示学生数量：

ec <- ggplot(data, aes(y=reorder(State, Rate), x= `Number of Students`, fill = Status)) +
  geom_bar(stat = "identity") + 
  scale_fill_brewer(palette = "Dark2") +
  ggtitle("Completed Rates by State")+
  ylab("State") +
  geom_text(aes(label=label))

需求：将表示完成总人数的完成率标签置于条形外侧末端，同时呈现总人数与完成率，希望基于Rate而非学生数设置hjust调整标签位置，询问是否需要调整数据框或直接设置hjust。

解决方案 #

不需要修改原数据框，直接通过ggplot的参数设置即可实现需求，核心思路是过滤有效标签行、定位标签坐标并基于Rate调整对齐方式：

修改后的代码 #

ec <- ggplot(data, aes(y = reorder(State, Rate), x = `Number of Students`, fill = Status)) +
  geom_bar(stat = "identity") + 
  scale_fill_brewer(palette = "Dark2") +
  ggtitle("Completed Rates by State") +
  ylab("State") +
  # 仅对Completed行添加标签，拼接总人数与完成率信息
  geom_text(
    data = subset(data, Status == "Completed"),
    aes(
      x = Denominator,  # 将标签定位到总人数对应的条形末端位置
      label = paste0("总人数：", Denominator, "\n完成率：", Label),
      # 基于Rate设置hjust：完成率越高，标签越靠近条形右端；反之则调整对齐方向
      hjust = 1 - Rate
    ),
    vjust = 0.5  # 垂直方向居中对齐
  )

关键说明 #

• 过滤标签行：通过subset(data, Status == "Completed")只选取有有效标签的行，避免<NA>标签干扰图表
• 定位标签位置：将x设为Denominator（总人数），确保标签出现在整个条形的最外侧末端
• 基于Rate调整hjust：使用hjust = 1 - Rate，利用完成率动态调整标签的水平对齐方式，保证标签始终处于条形外侧的合理位置；也可根据需求改用条件判断，比如hjust = ifelse(Rate > 0.5, 0, 1)，完成率超过50%时标签靠右对齐，否则靠左对齐
• 标签内容优化：通过paste0拼接总人数与完成率信息，满足同时展示两类数据的需求

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