參考CSDN博客ntuYision：使用R語(yǔ)言ggplot2包繪制pathway富集分析氣泡圖（Bubble圖）:數(shù)據(jù)結(jié)構(gòu)及代碼
getwd()
setwd("D:/Desktop/") ? ? #查看和修改工作目錄
library(ggplot2) ? ? #加載ggplot2包
pathway = read.csv("kegg.csv",header = TRUE,row.names = 1,check.names = FALSE) ? #讀入文件砚亭，第一列預(yù)留行名
p = ggplot(pathway, aes(Pvalue,Pathway))
p = p + geom_point() ? ?
p = p + geom_point(aes(size=Count)) ? ? ??#修改點(diǎn)的大小
pbubble = p + geom_point(aes(size=Count,color=-1*log10(Pvalue))) ? ? #展示三維數(shù)據(jù)
pr = pbubble + scale_color_gradient(low="blue",high = "red") ? ?#設(shè)置漸變色
pr = pr + labs(color=expression(-log10(Pvalue)),size="Count",x="Pvalue",y="Pathway name",title="Pathway enrichment")
pr + theme_bw() ? ? #繪制氣泡圖
ggsave("out.pdf")
