ggplot2中x轴为离散型时，如何获取左右y轴的x坐标？

当x轴是离散型分类变量时，ggplot2会自动将每个类别映射到整数位置（如1、2、3…），但默认会对绘图面板的x范围做扩展，导致左右y轴对应的水平位置无法直接通过分类位置推断。下面提供两种可靠的方法来获取这些位置，进而添加注释或自定义坐标轴元素：

方法一：通过ggplot_build提取实际面板范围 #

这是最通用的方法，不管你是否修改了轴的扩展参数，都能准确拿到绘图时的真实x范围：

1. 先创建基础绘图对象：

library(ggplot2)
df <- data.frame(
  category = c("A", "B", "C", "D"),
  value = c(10, 20, 15, 25)
)

p <- ggplot(df, aes(x = category, y = value)) +
  geom_col()

2. 提取绘图构建信息中的x轴范围：

# 生成绘图的构建数据
pb <- ggplot_build(p)
# 获取第一个面板的x轴范围（包含扩展后的左右边界）
x_bounds <- pb$layout$panel_params[[1]]$x.range
# 左y轴对应的x位置
x_left <- x_bounds[1]
# 右y轴对应的x位置
x_right <- x_bounds[2]

3. 用获取到的位置添加注释或自定义元素：
   比如模拟base R的坐标轴样式，用线段替代完整x轴，并在左右y轴旁加注释：

p +
  # 隐藏原始x轴的线和刻度
  theme(axis.line.x = element_blank(), axis.ticks.x = element_blank()) +
  # 绘制自定义x轴线段（分左、中、右三段）
  annotate("segment", x = x_left, xend = 1 - 0.3, y = 0, yend = 0, color = "black") +
  annotate("segment", x = 1 + 0.3, xend = 4 - 0.3, y = 0, yend = 0, color = "black") +
  annotate("segment", x = 4 + 0.3, xend = x_right, y = 0, yend = 0, color = "black") +
  # 左y轴旁添加注释
  annotate("text", x = x_left, y = 15, label = "左侧标注", hjust = 1) +
  # 右y轴旁添加注释
  annotate("text", x = x_right, y = 15, label = "右侧标注", hjust = 0)

方法二：手动计算扩展后的x范围 #

如果你没有修改离散轴的扩展参数，或者明确知道扩展规则，可以直接计算：

• 默认情况下，scale_x_discrete的扩展参数是expand = expansion(mult = 0.3)，也就是每个方向的扩展比例为0.3
• 假设你有n个分类，那么x轴的左边界是1 - 0.3，右边界是n + 0.3

比如上面的例子有4个分类，左位置是0.7，右位置是4.3，直接用这个数值也能达到效果：

p +
  annotate("text", x = 0.7, y = 15, label = "左侧标注", hjust = 1) +
  annotate("text", x = 4.3, y = 15, label = "右侧标注", hjust = 0)

注意：如果自定义了expand参数（比如expand = expansion(add = 0.5)），需要对应调整计算方式，比如左边界变为1 - 0.5，右边界变为n + 0.5。

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