如何在R的ggplot2水平条形图中添加Total值的蓝色标线？

你可以通过geom_segment精准实现每个类别对应的Total数值蓝色标线，同时需要先修正代码里geom_text缺失闭合括号的语法问题。以下是完整解决方案：

完整可运行代码 #

dat=read.csv(textConnection(
  "Category,Value1,Value2,Total,Group
A,10,10,20,1
B,20,30,50,1
C,5,2,7,1
D,5,10,15,2
E,10,20,30,2
F,30,4,34,2"))

library(tidyverse)
library(ggplot2)

dat %>%
  arrange(desc(Group), Total) %>%
  mutate(Category = fct_inorder(Category)) %>%
  pivot_longer(Value1:Total) -> dat2

# 单独提取Total数据，简化后续调用
total_dat <- filter(dat2, name == "Total")

ggplot(filter(dat2, !name %in% c("Value2","Total")),
       aes(value, Category, label = value)) +
  # 堆叠条形图
  geom_col(aes(fill = name), position = position_stack(reverse = TRUE)) +
  # 条形内文本
  geom_text(position = position_stack(vjust = 0.5, reverse = TRUE))  +
  # Total数值文本（修正了缺失的闭合括号）
  geom_text(data = total_dat, hjust = -0.5, aes(label = value)) +
  # 蓝色垂直标线：覆盖对应类别的条形高度范围
  geom_segment(data = total_dat,
               aes(x = value, xend = value, 
                   y = as.numeric(Category) - 0.4, yend = as.numeric(Category) + 0.4),
               color = "blue", size = 1) +
  # 扩展x轴范围，避免Total文本和标线超出显示区域
  xlim(0, max(total_dat$value) * 1.2)

关键说明 #

• geom_segment的作用：通过x=xend=value保证线段垂直于x轴，y和yend利用as.numeric(Category)将因子转换为数值，加减0.4让标线刚好覆盖对应条形的高度范围。
• 如果想用geom_linerange实现，替换上述geom_segment代码即可，效果一致：

  geom_linerange(data = total_dat,
                 aes(x = value, 
                     ymin = as.numeric(Category) - 0.4, 
                     ymax = as.numeric(Category) + 0.4),
                 color = "blue", size = 1)
  

• 修正语法错误：原代码中geom_text部分缺失闭合括号，导致代码无法运行。

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