气泡图

library(ggplot2)
pathway=head(read.csv("qipao1.csv",header=TRUE,check.names = FALSE),20)#读取数据
p=ggplot(pathway,aes(x=ratio, y=pathway))+  #列名不能加空格
     geom_point(aes(size=Count,color=-1*log10(Pvalue)),alpha=0.8,stroke = 3)+  # 四维数据的展示
  scale_size_continuous(range = c(2,5))+#设置点大小
  scale_color_gradient(low="blue",high = "red")+#设置气泡颜色, 自定义渐变颜色
  theme_bw()+
labs(color=expression(-log[10](Pvalue)),size="Count",x="Rich ratio",y="GO Term",title="") #设置标注，坐标，tille

Rplot.jpeg