如何为ggplot双侧棒棒糖图添加仅显示大差异的差值标签

无需使用annotate()，通过数据预处理结合geom_text()即可实现需求，步骤如下：

1. 预处理数据：计算差值并筛选目标条目 #

先给数据框添加差值列（绝对或百分比形式），再筛选出差异最大的条目（示例取Top2）：

# 加载dplyr用于数据处理，scales用于百分比格式化
library(dplyr)
library(scales)

# 计算绝对差值和百分比差值
example$diff_abs <- example$Downstream - example$Upstream
example$diff_pct <- percent((example$Downstream - example$Upstream)/example$Upstream, accuracy = 1)

# 按绝对差值降序排序，取前2个差异最大的条目
top_diff <- example %>% 
  arrange(desc(abs(diff_abs))) %>% 
  slice_head(n=2)

2. 修改绘图代码添加标签 #

使用geom_text()直接映射分类X轴，仅对筛选后的top_diff数据添加标签，可按需选择绝对或百分比格式：

ggplot(example) +
  geom_segment( aes(x=Sector, xend=Sector, y=Upstream, yend=Downstream), color="black") +
  geom_point( aes(x=Sector, y=Upstream, color="Upstream"), size=2 ) +
  geom_point( aes(x=Sector, y=Downstream, color="Downstream"), size=2 ) +
  # 添加绝对差值标签，Y轴取Upstream和Downstream的平均值，hjust调整位置避免遮挡
  geom_text(data = top_diff, 
            aes(x=Sector, y=(Upstream+Downstream)/2, label=paste("Δ", round(diff_abs, 2))),
            hjust=-0.2, size=3.5) +
  # 若需百分比标签，替换上方geom_text为以下代码
  # geom_text(data = top_diff, 
  #           aes(x=Sector, y=(Upstream+Downstream)/2, label=diff_pct),
  #           hjust=-0.2, size=3.5) +
  coord_flip()+
  theme_classic()+
  scale_color_manual(values = c("orange", "deepskyblue4"), name   = "Loss-Type")+
  ylab("Losses") +
  # 调整右侧边距，防止标签被截断
  theme(plot.margin = margin(5, 40, 5, 5))

核心说明 #

• geom_text()支持直接使用分类变量作为X轴，无需转换为数值，完美适配你的分类轴需求；
• 通过数据筛选仅给差异最大的条目加标签，有效避免图表拥挤；
• 可通过hjust/vjust调整标签位置，plot.margin调整画布边距防止标签被截断；
• 绝对差值和百分比标签可按需切换，百分比使用scales::percent()格式化更规范。

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