先是画一个这个图 ，这个图是根据p.adjust（也就是FDR）来排序的，我的代码是按照queritem多少来排序的，颜色填充都是根据FDR来的
##画直方图，先是数据集，设置xy轴，这里用reorder按照queryitem排序Term，颜色根据FDR来决定
ggplot(abp,aes(x=queryitem,y=reorder(Term,queryitem),fill=FDR))+
##这是绘制直方图的意思，柱子宽度为0.7
geom_bar(stat = "identity",width = 0.7)+
##设置xy轴的名称，我这里设置为空，就是删除的意思，后面是图的标题，\n的意思是换行
xlab("Number of Genes\n\n图一")+ylab("")+labs(fill="FDR")+labs(title = "def")+
##修改填充的渐变色
scale_fill_gradient(high = "blue",low="red")+
##文本主题设置，坐标轴文字大小为13，坐标轴名称文字大小为16，标题文字大小为30,还可以设置其他的，附图如下
theme(axis.text = element_text(size =13),
axis.title = element_text(size = 16),
plot.title = element_text(size=30,hjust= 0.5 ))
