鱼与熊掌兼得：ggplot2非要截断纵坐标肿么办

测试开头

今天是生信星球陪你的第609天

大神一句话，菜鸟跑半年。我不是大神，但我可以缩短你走弯路的半年~

就像歌儿唱的那样，如果你不知道该往哪儿走，就留在这学点生信好不好~

这里有豆豆和花花的学习历程，从新手到进阶，生信路上有你有我！

花花写于2020-4-28。今天有两件特别高兴的事情，一个是昨晚发的萝卜找坑帖子，发出去六分钟就有一位中国中医科学院中药研究所的导师联系我提供坑位；另一个是刚刚收到了数据挖掘班第一期学员（一位北大的硕士）的2600字长文反馈！她从零开始跟我们团队学习，收获颇多，我收到她如此用心反馈也高兴地快要跳起来了~等我排版一下发给大家看~~~数据挖掘线上班适用于广大医生和医学生，如有需求报名请戳：数据挖掘第2期（两天变三周，实力加量）

前情提要

ggplot2不能截断纵坐标肿么办讲了几种截断方法，各有长短，我在这篇文章发出去后收到两个反馈，特来与大家分享~

新方法1.拼图

出处：https://huifangliu.github.io/2018/06/01/R语言-ggplot2画图如何截断-y-轴/

实现从A到B，上下两部分图画出来，然后拼到一起即可

（1）举重若轻三步走

#导入包
library(ggplot2)
library(ggpubr)
#数据
data <- data.frame(x = c("Alpha","Bravo","Charlie","Delta"),y=c(200,20,10,15))
#画下面
p1 <- ggplot(data,aes(x=x,y=y,fill=x)) + 
  geom_bar(stat='identity',position=position_dodge()) +
  labs(x=NULL,y=NULL,fill=NULL)+    #可自定义标签名字
  coord_cartesian(ylim = c(0,25))    #设置下面一半的值域
#画上面
p2 <- ggplot(data,aes(x=x,y=y,fill=x)) + geom_bar(stat='identity',position=position_dodge()) +
  labs(x=NULL,y=NULL,fill=NULL) +    #不要标签
  theme(axis.text.x = element_blank(),axis.ticks.x = element_blank()) +     #去掉X轴和X轴的文字
  coord_cartesian(ylim = c(195,205)) +  #设置上面一半的值域
  scale_y_continuous(breaks = c(195,205,5))    #以5为单位划分Y轴
#拼起来
ggarrange(p2,p1,heights=c(1/5, 4/5),ncol = 1, nrow = 2,common.legend = TRUE,legend="right",align = "v")

重点在于：设置y轴值域，设置p2的刻度、不要x轴标签和名字，以及拼图设置高度比。

（2）patchwork拼图也很可

library(patchwork)
p2 <- ggplot(data,aes(x=x,y=y,fill=x)) + geom_bar(stat='identity',position=position_dodge()) +
  labs(x=NULL,y=NULL,fill=NULL) +    #不要标签
  theme(axis.text.x = element_blank(),axis.ticks.x = element_blank(),legend.position = "none") +     #去掉X轴和X轴的文字
  coord_cartesian(ylim = c(195,205)) +  #设置上面一半的值域
  scale_y_continuous(breaks = c(195,205,5))    #以5为单位划分Y轴


layout <- '
A
B
B
B
B
'
p2 + p1 + plot_layout(design = layout)

2.新方法2：gg.gap包

上次的文章发出去后，gg.gap包的作者chris_lou给我留言，可以用他的包！我一看，果然是非常好用！

分享能带来什么呢,曾以为就是自己记录下来，印象深刻，顺便可以帮助一下别人。这次不一样，有被帮助到！感谢大佬！

下面的代码来自包的帮助文档，套在刚才的数据上。

#install.packages(gg.gap)
library(gg.gap)
library(ggplot2)
library(patchwork)
#数据
data <-
  data.frame(x = c("Alpha", "Bravo", "Charlie", "Delta"),
             y = c(200, 20, 10, 15))
#画图
p1 = ggplot(data, aes(x = x, y = y, fill = x)) +
  geom_bar(stat = 'identity', position = position_dodge(),show.legend = FALSE) +
  theme_bw() +
  labs(x = NULL, y = NULL)

p1
p2 =gg.gap(plot = p1,
           segments = c(25, 190),
           tick_width = 10,
           rel_heights = c(0.25, 0, 0.1),
           ylim = c(0, 200)
           )
p1+p2