每日R语言绘图（4）——barplotGroup

绘出后的图如下：

所需的数据文件格式如下：

####下面是有关代码

library(ggpubr) #引用包

inputFile="input.txt"      #输入

outFile="barplot.pdf"      #输出

rt=read.table(inputFile,header=T,sep="\t",check.names=F)      #读取输入文件

#绘制

pdf(file=outFile,width=7,height=5)

ggbarplot(rt, x="Term", y="Count", fill = "ONTOLOGY", color = "white",

          orientation = "horiz",  #横向显示

          palette = "aaas",    #配色方案

          legend = "right",    #图例位置

          sort.val = "asc",    #上升排序，区别于desc

          sort.by.groups=TRUE)+    #按组排序

          scale_y_continuous(expand=c(0, 0)) + scale_x_discrete(expand=c(0,0))

dev.off()