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
