一行代码解决GO富集分析柱形图

David Kobas 富集分析的结果怎么转变为发表级别的图片？
示例数据直接从网站导出整理成如下这种格式读入R

image.png

dat = read.csv(choose.files(),header = T)#我保存的数据为csv格式，如果txt格式用read.table()
library(ggplot2)#没有自己安装 install.package("ggplot2")
ggplot(dat,aes(y=dat$Count,x=dat$Term,fill=dat$Category)) + geom_bar(stat="identity",position = "dodge") +facet_grid(dat$Category~.,scales = "free",space = "free") + coord_flip() + theme_bw()

image.png