截断坐标轴参数的应用小例子

看到了一个ggbreak包中scale_x_break、scale_y_break截断坐标轴的参数应用，所以自己学习画了一下
原文参考：https://mp.weixin.qq.com/s/l98Pfk4xPykWWuIJs7katw

#先画一个基础柱状图
library(ggplot2)
library(ggbreak) 
library(patchwork)

d<- data.frame(
  x=c(1:10) ,  
  y=c(2,14,3,17,50,68,71,64,32,99)
)

#绘制基础柱状图
p1 <- ggplot(d, aes(y, x)) + geom_col(orientation="y")
p1

#scale_x_break函数设置截断坐标
p2 <- p1 + scale_x_break(c(5, 28)) + 
  xlab(NULL) + ylab(NULL) + theme_minimal()
p2

#添加多个截断坐标
p1 + scale_x_break(c(6, 10), scales = 1.5) + scale_x_break(c(15, 21), scales=2)+scale_x_break(c(25, 30), scales=2.5)