注意点: X轴的因子顺序(见上文);Y轴的换行;不同的分面
ggplot(data = GO_FE_plot,aes(x = GeneRatio, y = Description)) +
geom_point(aes(size = Count,color = pvalue)) +
scale_color_gsea()+
scale_y_discrete(labels=function(x) str_wrap(x, width=32)) +
theme_bw() +
theme(axis.title = element_text(size = 8),axis.text = element_text(size = 8, colour = "gray10")) +
labs(y = NULL)+
scale_y_discrete(labels=function(x) str_wrap(x, width=35)) +
theme(axis.title = element_text(face = "bold"),
axis.text = element_text(face = "bold"),
plot.title = element_text(face = "bold")) +
labs(colour = "p.adjust")+
facet_grid(group ~ ., scales = "free", space = "free")