2020年11月25日 Amao
#導(dǎo)入R包
library(ggplot2)
library(ggpubr)
#生成一組數(shù)據(jù)
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")+ #標(biāo)簽可自定義
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) + #不加標(biāo)簽
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部分拼起來淤毛，只用一個(gè)legend
p<-ggarrange(p2,p1,heights=c(1/5, 4/5),ncol = 1, nrow = 2,common.legend = TRUE,legend="right",align = "v")
p
截?cái)?png
歡迎和我一起學(xué)習(xí)今缚，GZH：A林外傳
