群里有朋友问这个图怎么画，我想了想，这肯定是ggplot完成的，非常简单，但是菜鸟们缺乏实践，可能会困惑，所以我模拟数据画了一个！

首先构造数据

dat=data.frame(name=LETTERS[1:21],
 number=abs(rnorm(21)*10),
 type=c(rep("BP",7),rep("CC",7),rep("MF",7))
)
# 请务必自己查看dat是一个什么数据，print出来即可
# 然后对这个数据画图，一行代码即可！！！
library(ggplot2)
ggplot(dat,aes(x=name,y=number,fill=type))+geom_bar(stat="identity")+coord_flip()

看起来是不是很像回事啦！细节我就懒得调控啦！

其实自己搜索即可！坐标轴和主题都是可以控制的

http://rstudio-pubs-static.s3.amazonaws.com/3364_d1a578f521174152b46b19d0c83cbe7e.html

http://docs.ggplot2.org/0.9.3.1/coord_flip.html