ggplot如何绘制绘图区域的精准对角线？

现有对角线绘制方式 #

你目前使用以下代码在ggplot中绘制了两种对角线：

ggplot(iris,
       aes(x=Petal.Length,
           y=Petal.Width))+
  geom_point()+
  geom_abline() +
  geom_smooth(method = "lm", se = F)

需求说明 #

你需要一条精准连接绘图区域（不含边距）左下角到右上角的对角线，以下是手动绘制的对比效果：

无需手动计算的解决方案 #

可以通过自动提取绘图面板的坐标范围，再用geom_segment()绘制对角线，无需手动计算坐标或斜率：

方法步骤： #

1. 先定义基础绘图对象
2. 通过ggplot_build()获取面板的x、y轴范围
3. 使用geom_segment()连接范围的对角点

library(ggplot2)

# 基础绘图
p <- ggplot(iris, aes(x=Petal.Length, y=Petal.Width)) +
  geom_point()

# 自动提取绘图面板的坐标范围
plot_build <- ggplot_build(p)
x_limits <- plot_build$layout$panel_params[[1]]$x.range
y_limits <- plot_build$layout$panel_params[[1]]$y.range

# 添加精准对角线
p + 
  geom_segment(
    aes(x = x_limits[1], xend = x_limits[2],
        y = y_limits[1], yend = y_limits[2]),
    color = "red" # 可选：设置颜色方便区分
  )

另一种更简洁的方法（使用annotation_custom） #

如果希望直接基于绘图面板的相对位置绘制，无需依赖数据范围，可以使用annotation_custom结合grid包的线条对象：

library(ggplot2)
library(grid)

ggplot(iris, aes(x=Petal.Length, y=Petal.Width)) +
  geom_point() +
  annotation_custom(
    grob = linesGrob(gp = gpar(col = "red")),
    xmin = -Inf, xmax = Inf,
    ymin = -Inf, ymax = Inf
  )

这个方法会直接连接绘图面板的左下角到右上角，无论坐标轴的具体范围是什么。

内容的提问来源于stack exchange，提问作者J. Doe