代谢组学通路富集分析

1
2

rm(list = ls())
library(ggplot2)
library(readxl)
pathway = read_xlsx("/Users/wangchen/Desktop/Statistics/GCMS/5代谢通路分析/pathway.xlsx")

pp=ggplot(pathway,aes(Impact,PathwayTerm))

#正式画图并添加size和color的参数

pbubble=pp+geom_point(aes(size=Number,color=P_value))

#添加颜色的变化

pbubble+scale_colour_gradient(low="green",high="red")