library(ggplot2)
pathway=head(read.csv("qipao1.csv",header=TRUE,check.names = FALSE),20)#讀取數(shù)據(jù)
p=ggplot(pathway,aes(x=ratio, y=pathway))+ #列名不能加空格
geom_point(aes(size=Count,color=-1*log10(Pvalue)),alpha=0.8,stroke = 3)+ # 四維數(shù)據(jù)的展示
scale_size_continuous(range = c(2,5))+#設(shè)置點(diǎn)大小
scale_color_gradient(low="blue",high = "red")+#設(shè)置氣泡顏色, 自定義漸變顏色
theme_bw()+
labs(color=expression(-log[10](Pvalue)),size="Count",x="Rich ratio",y="GO Term",title="") #設(shè)置標(biāo)注，坐標(biāo)嚎尤，tille
Rplot.jpeg
