如何在ggplot分类X轴柱状图中绘制占宽度70%的水平参考线

首先修正你原代码里的小错误：ggplot相关包的正确名称是ggplot2，第一行应该写成library(ggplot2)。

对于分类X轴的场景，geom_segment其实完全可用——因为ggplot会自动把离散类别映射为连续数值（比如你的class有7个类别，对应x轴的数值范围是1到7，整个绘图区域的x边界是0.5到7.5）。要绘制y=20位置、占据中间70%宽度的水平线，只需计算出线段的起始和结束x坐标即可：

完整代码示例 #

library(ggplot2)

# 获取class类别的总数
n_classes <- length(unique(mpg$class))
# 计算中间70%线段的起始和结束x坐标
total_width <- n_classes  # 整个x轴绘图区域的总宽度（从0.5到n_classes+0.5）
segment_width <- total_width * 0.7
x_start <- 0.5 + (total_width - segment_width) / 2
x_end <- 0.5 + total_width - (total_width - segment_width) / 2

# 绘制柱状图+指定水平线
g <- ggplot(mpg, aes(class)) + geom_bar()
g + geom_segment(aes(x = x_start, xend = x_end, y = 20, yend = 20), 
                 color = "red", size = 1)

原理说明 #

• 离散X轴的每个类别对应一个整数位置（1、2、…n），ggplot默认会在最左类别左侧和最右类别右侧各留0.5的空白，所以整个x轴的有效范围是0.5到n_classes + 0.5。
• 通过计算总宽度的70%，再把这段线段居中放置，就能得到你需要的效果。
• 如果后续class的类别数量变化，这段代码也能自动适配，无需手动调整坐标。

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