cellexamdat.csv",
row.names = 1)
head(dat00)
接下来是构造数据集用来添加中间部分的色块
datc(..."A","B","C","D"),
y=0,
label=c(0,1,2,3))
构造数据集用来添加背景的灰色柱子
datbarc("A","B","C","D"),
y=c(20,10,20,10))
接下来是作图代码
library(ggplot2)
library(ggnewscale...=3,color="black",
alpha=0.9,
show.legend = F)+
scale_fill_manual(values = c(..."#44a9a9","#4177aa","#12783c","#a94698"))+
geom_text(data=dat,aes(x=x,y=y,label=label))
结果如下
作图的代码具体意思就不详细介绍了