R语言y轴截断画图代码总结2020-11-25

2020年11月25日 Amao

#导入R包
library(ggplot2)
library(ggpubr)
#生成一组数据
data <- data.frame(x = c("A","B","C","D"),y=c(326,28,12,18))
#Step1 画下面一半图
p1 <- ggplot(data,aes(x=x,y=y,fill=x)) + geom_bar(stat='identity',position=position_dodge()) +
  labs(x="group",y="number",fill="group")+  #标签可自定义
  coord_cartesian(ylim = c(0,35))   #下面一半的值域0-35，超过35的将会填满
#Step2 画上面一半图
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(300,330)) +  #上面一半的值域300-330
  scale_y_continuous(breaks = c(300,330,10))    #上面Y轴每一格是10
#Step3 将上下2部分拼起来，只用一个legend
p<-ggarrange(p2,p1,heights=c(1/5, 4/5),ncol = 1, nrow = 2,common.legend = TRUE,legend="right",align = "v")
p

欢迎和我一起学习，GZH：A林外传