如何在ggplot2中跨绘图坐标轴绘制线段实现多轴中断？

核心问题说明 #

你之前用scale_y_continuous(limits = c(15,24))会直接裁剪掉y值小于15的图形元素，导致geom_segment的下端被截断，无法显示跨X轴边界的中断线。改用coord_cartesian(ylim = c(15,24))即可解决——它仅调整图表的可视范围，不会裁剪数据，这样线段就能完整延伸到X轴下方。

优化实现代码 #

我们可以把所有中断位置整理成数据框，用一次geom_segment完成所有中断线绘制，避免重复代码：

set.seed(321)
dat <- data.frame(matrix(ncol = 2, nrow = 18))
colnames(dat)[1:2] <- c("Month", "Value")
dat$Month <- rep(c(1,2,10,11,20,21),3)
dat$Value <- rnorm(18,20,2)

library(ggplot2)

# 定义中断位置数据框：每个中断点对应左右两条竖线
break_positions <- data.frame(
  x = c(2.45, 2.55, 4.45, 4.55),
  xend = c(2.45, 2.55, 4.45, 4.55),
  y = rep(-Inf, 4),
  yend = rep(15, 4)
)

ggplot(data = dat, aes(x = factor(Month), y = Value)) +
  geom_boxplot() +
  labs(x = "Month") +
  # 绘制中断线：注意不要放在全局aes里，避免继承不必要的映射
  geom_segment(data = break_positions, aes(x = x, xend = xend, y = y, yend = yend),
               color = "black") +
  # 用coord_cartesian控制y轴可视范围，不裁剪数据
  coord_cartesian(ylim = c(15, 24)) +
  scale_y_continuous(breaks = seq(15,24,1)) +
  theme_bw() +
  theme(panel.grid = element_blank(),
        text = element_text(size = 16),
        axis.text.x = element_text(size = 14, color = "black"),
        axis.text.y = element_text(size = 14, color = "black"))

关键细节解释 #

• 因子X轴的位置对应：factor(Month)在X轴上的位置依次是1（Month=1）、2（Month=2）、3（Month=10）、4（Month=11）、5（Month=20）、6（Month=21），所以中断线要放在2和3之间（x≈2.5）、4和5之间（x≈4.5）。
• coord_cartesian vs scale_y_continuous(limits)：前者是"放大"指定区域，保留所有图形元素；后者会直接删除超出范围的数据/图形，这是你之前看不到完整中断线的核心原因。
• 中断线的绘制：将中断位置单独做成数据框，避免重复调用geom_segment，代码更简洁易维护；同时注意不要让geom_segment继承全局的aes映射，避免不必要的报错。

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