ggplot中annotation_custom()绘制负斜率linesGrob失败求助

你遇到的问题根源在于linesGrob的默认行为：它会自动将输入的x坐标按从小到大排序，所以不管你在annotation_custom里设置的xmin/xmax顺序如何，线条都会被强制调整为正斜率。

要绘制负斜率的线条，有两个更可靠的方法：

方法1：使用segmentsGrob（推荐） #

segmentsGrob不会自动排序坐标，完全按照你给定的起点(x0,y0)和终点(x1,y1)绘制线段，最适合这种场景。

修改后的完整代码：

library(tidyverse)
library(patchwork)
library(grid)

mtcars %>% 
  group_by(gear) %>% 
  summarise(value = mean(hp)) %>% 
  ggplot() +
  aes(x = gear, y = value) + 
  geom_point() + 
  geom_rect(xmin = 2.9, ymin =50, xmax =5.1, ymax =100, fill = "transparent", color = "black") +
  scale_y_continuous(limits = c(1,200)) -> p1

mtcars %>% 
  group_by(gear) %>% 
  summarise(value = mean(hp)) %>% 
  ggplot() +
  aes(x = gear, y = value) + 
  geom_point() + 
  scale_y_continuous(limits = c(50,100)) -> p2

p1 + theme(plot.margin = unit(c(0,5,0,0), "cm")) +
  # 右上连接线
  annotation_custom(grob = segmentsGrob(x0=5.2, y0=100, x1=7, y1=200), 
                    xmin=5.2, xmax=7, ymin=100, ymax=200) + 
  # 右下负斜率连接线
  annotation_custom(grob = segmentsGrob(x0=5.2, y0=50, x1=7, y1=0), 
                    xmin=5.2, xmax=7, ymin=0, ymax=50) + 
  # 左下负斜率连接线
  annotation_custom(grob = segmentsGrob(x0=7, y0=0, x1=5.2, y1=50), 
                    xmin=5.2, xmax=7, ymin=0, ymax=50) +
  coord_cartesian(clip="off") + p2

方法2：给linesGrob指定明确的坐标向量 #

如果你坚持用linesGrob，需要在grob内部直接传入x和y的坐标向量，绕过它的自动排序逻辑：

# 替换原代码中对应的annotation_custom部分
annotation_custom(grob = linesGrob(x = c(5.2,7), y = c(100,200)), 
                  xmin=5.2, xmax=7, ymin=100, ymax=200) + 
annotation_custom(grob = linesGrob(x = c(5.2,7), y = c(50,0)), 
                  xmin=5.2, xmax=7, ymin=0, ymax=50) + 
annotation_custom(grob = linesGrob(x = c(7,5.2), y = c(0,50)), 
                  xmin=5.2, xmax=7, ymin=0, ymax=50)

注意：两种方法都需要保留coord_cartesian(clip="off")，否则图外的线条会被裁剪；同时plot.margin要足够大，给连接线留出显示空间。

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