（R语言）-15-KEGG富集分析气泡图

 重点

geom_point()绘制点图

• 用aes(size=)将点的大小与某一数值的大小连接起来
• 点的颜色用aes(color=)

修改默认颜色scale_collor_gradient(low="",hign="")

labs(title="",x="",y="")修改标题，不能用title（main，xlab，ylab）

#KEGG功能注释图的绘制
pathway <- read.csv(file.choose(),header = T)#kegg.csv包
View(pathway)
colnames(pathway)
pp <- ggplot(data=pathway,mapping = aes(x=richFactor,y=Pathway))#richFactor做横轴，Pathway做纵轴
pp
#geom_point()绘制点图,AvsB表示点的大小用aes(size=)表示
pp+geom_point(mapping = aes(size=AvsB))
#点的颜色用aes(color=)
pp+geom_point(mapping = aes(size=AvsB,color=Qvalue))
#修改默认颜色scale_collor_gradient(low="",high="")
pp+geom_point(mapping = aes(size=AvsB,color=Qvalue))+scale_color_gradient(low="green",high="red")
#labs(title="",x="",y="")修改标题
pp+geom_point(mapping = aes(size=AvsB,color=Qvalue))+scale_color_gradient(low="green",high="red")+labs(title = "Top20 of pathway enrichment",x="Rich factor",y="Pathway",color="-log10(PValue)",size="Gene Numbers")+theme_bw()