如何使用ggbreak在坐标轴断点处添加标记？

要在坐标轴断点处添加提示标记，你可以借助ggbreak包的内置参数，或者结合annotate手动绘制自定义标记，以下是具体实现：

方法一：使用ggbreak内置参数（推荐） #

ggbreak的scale_y_break函数默认会在断点处添加斜线标记，通过调整参数可以让标记更明显：

library(ggplot2)
library(ggbreak)

p <- ggplot(iris, aes(x=Species, y=Sepal.Length)) + 
  geom_boxplot() +
  theme_classic() + 
  theme(axis.text.y.right = element_blank(), 
        axis.ticks.y.right = element_blank(), 
        axis.line.y.right = element_blank()) +
  # 调整断点标记的样式
  scale_y_break(c(4.5, 5.0), 
                break.size = 1.2,  # 标记线条粗细
                break.color = "black",  # 标记颜色
                expand = expansion(mult = c(0, 0.05))) +
  scale_y_continuous(limits = c(0, 15), position = "left")

print(p)

参数说明： #

• break.size：控制断点标记的线条粗细，数值越大标记越明显
• break.color：设置标记的颜色，默认与轴颜色一致
• expand：调整坐标轴的扩展范围，避免标记被截断

方法二：手动绘制自定义标记 #

如果需要更个性化的标记样式（比如缺口式标记），可以用annotate函数添加线段：

p <- p +
  # 绘制断点上下的短横线
  annotate("segment", x = 0.8, xend = 0.9, y = 4.5, yend = 4.5, color = "black", size = 1) +
  annotate("segment", x = 0.8, xend = 0.9, y = 5.0, yend = 5.0, color = "black", size = 1) +
  # 绘制中间的断开斜线
  annotate("segment", x = 0.8, xend = 0.9, y = 4.5, yend = 5.0, color = "black", linetype = "dashed")

注意事项： #

• x坐标0.8-0.9是根据离散x轴的位置（Species对应的x值为1、2、3）调整的，确保标记落在左侧y轴上
• 可以根据需要调整线段的size、linetype和color参数，匹配你的示例图样式

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