正文

Pathway富集分析气泡图

IP云
IP云V管理员/0 阅读
08/24
小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
  1. data.tsv

  3. > pathway = read.table("data.tsv",header = T, sep="\t")
    > library(ggplot2)
    > p = ggplot(pathway,aes(Pvalue,Pathway))
    > p=p + geom_point()
    > p=p + geom_point(aes(size=Count))
    > pbubble = p+ geom_point(aes(size=Count,color=-1*log10(Pvalue)))
    > pr = pbubble+scale_color_gradient(low="green",high = "red")
    > pr = pr+labs(color=expression(-log[10](Pvalue)),size="Gene number",
    + x="Pvalue",y="Pathway name",title="Pathway enrichment")
    > pr=pr + theme_bw()