ggplot2: 坐标轴截断

1. gg.gap

https://www.jianshu.com/p/196e284322bd
https://github.com/ChrisLou-bioinfo/gg.gap

plot_1 <- ggplot()
gg.gap(plot=plot_1, segments=, ylim=, tick_width=)

• 1. segments= : 规定截掉y轴的范围
• 2. ylim= : 规定显示y轴的总体范围
• 3. tick_width= : 规定余下部分的分割间隙，决定y轴的坐标显示

plot_1 <- ggplot()+geom_bar(data=kk, aes(x=V2, y=V1, group=group, fill=V3), stat = "identity", position = "dodge")
plot_1  #示例一

gg.gap(plot = plot_1, segments = list(c(60,100),c(1860,8500)), ylim = c(0,10000), tick_width=c(10,400,500)   #示例二

示例一
示例二