GO聚类结果按Ontology画气泡图

GO

x=-(GO$LogP)
y<-factor(GO$Description,levels = rev(GO$Description))
ggplot(GO,aes(x,y))+geom_point(aes(size=GeneCount,color=-Log.q.value.,shape=Category))+scale_color_gradient(low = "blue", high = "red")+ labs(color=expression(-Log.q.value.),
                size="GeneCount",
                x="-LogP",
                y="",
                title="Go enrichment of Common DEGs")+theme_bw()+theme(
                #去网格去背景色
                axis.line = element_line(colour = "black"), axis.text = element_text(color = "black",size = 14),
                #刻度字体大小
                legend.text = element_text(size = 14),legend.title=element_text(size=14),
                axis.title.x = element_text(size = 14))+
                scale_size_continuous(range=c(4,8))
                #自定义气泡大小，以防太小看不见

image.png