绘图导航
  • 基础绘图
  • 高级绘图
  • 微生物
  • 转录组

截断坐标轴的参数应用

 二维码 10

看到了一个ggbreak包中scale_x_break、scale_y_break截断坐标轴的参数应用,以下是应用的一个小例子。

#先画一个基础柱状图

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)

#scale_x_reverse()参数旋转坐标轴

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)+ scale_x_reverse()




推荐使用谷歌浏览器点击下载