ggplot分面图中如何让横竖标记线延伸至坐标轴边界

问题核心 #

在ggplot2中使用facet_wrap(scales = 'free')绘制自由刻度分面图时，手动指定端点的水平/垂直标记线段无法触及坐标轴边界，已尝试expand_limits()、调整scale_*_continuous()扩展参数、coord_cartesian()限定范围均未达到预期，要求保留自由分面刻度逻辑，且y<0的点可不显示。

失效原因 #

之前方案的核心问题是硬编码线段端点为固定值0：自由分面下每个面板的坐标轴范围根据面板内数据独立计算，若面板轴下限不等于0，硬编码的0端点就会落在绘图区域内部，自然无法接触坐标轴边界；全局修改轴扩展参数、强制限定坐标范围还会破坏自由分面的自动适配效果，或导致数据点贴边影响观感。

可行实现 #

利用ggplot2的坐标规则：将线段端点设置为-Inf/Inf时，端点会自动映射到当前面板对应坐标轴的最小/最大边界位置，无需手动计算每个分面的轴范围，完美适配自由分面逻辑。
完整可运行代码：

library(tidyverse)
library(ggh4x)
# 原始绘图数据
df = data.frame(
  x = c(1, 2, 3, 4, 10, 20, 30 ,40),
  y = c(1, 2, 3, -1, 10 ,20, 30, -10),
  group = c(1, 1, 1, 1, 2, 2, 2, 2)
)

# 标记点与辅助线段数据，将线段靠近轴的端点替换为-Inf
add.point = data.frame(
  group   = c(1, 2),
  x       = c(1, 10),
  y       = c(1.5, 15),
  x_hline = c(-Inf, -Inf), # 水平线段左端点对齐x轴左边界
  y_hline = c(1.5, 15),
  x_vline = c(1, 10),
  y_vline = c(-Inf, -Inf)  # 垂直线段下端点对齐y轴下边界
)

# 绘图
p = df %>% 
  ggplot(aes(x = x, y = y)) +
  geom_point() +
  geom_smooth(se = F) +
  facet_wrap(vars(group), scales = 'free')+
  geom_point(data = add.point, aes(x = x, y = y), color = 'red')+
  geom_segment(data = add.point,
               aes(x = x_hline, y = y_hline,
                   xend = x, yend = y), linetype = 'dashed')+
  geom_segment(data = add.point,
               aes(x = x_vline, y = y_vline,
                   xend = x, yend = y), linetype = 'dashed') +
  # 仅限定y轴下限为0，隐藏y<0内容，上限保持自动计算，不破坏x轴自由刻度
  coord_cartesian(ylim = c(0, NA))

p

补充说明 #

• 若需要线段延伸到面板上边界/右边界，将对应位置的端点值替换为Inf即可
• 该方案不需要修改坐标轴expand参数，会保留默认的轴边距，避免数据点贴在坐标轴上
• coord_cartesian(ylim = c(0, NA))中NA代表对应轴的范围不做强制限定，保持ggplot自动计算的结果，不会干扰自由分面的刻度适配

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