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
截断.png
欢迎和我一起学习，GZH：A林外传
