富集气泡图横坐标一般为Richfactor(代谢组、转录组)或FoldEnrichment(蛋白组)。Richfactor指该条目中富集到的差异基因/代谢物个数(Samplenumber)与注释到该条目所有基因/代谢物个数(Backgroundnumber)的比值。FoldEnrichment为GeneRatio(注释到该条目的差异蛋白质数与差异蛋白质总数的比值)/BgRatio(释到该条目的背景蛋白...
(富集倍数): KEGG_diff2 <- mutate(KEGG_diff2, FoldEnrichment = parse_ratio(GeneRatio) / parse_ratio(BgRatio)) KEGG_diff2@result$RichFactor[1:6] KEGG_diff2@result$FoldEnrichment[1:6] head(KEGG_diff2) # 导出,改名和排序(p值大小升序) write.csv(x = KEGG_diff2,file = "kegg_down_1....