瀑布图

#瀑布图

library(ggplot2)
library(forcats)
library(scales)


getwd()

circ=read.csv("Documents.csv")
circ=as.data.frame(circ)
circ
ggplot(circ,aes(x=circ$Rank,y=circ$log2fold,color=circ$Anno))+
  geom_point(aes(size=circ$P_value))+theme_bw()+
  #geom_hline(yintercept = c(1,-1),linetype=2,size=0.25)+
  geom_hline(yintercept = c(0),linetype=1,size=0.5)+
  geom_vline(xintercept = sum(circ$Anno=='Down' )+170,linetpe=2,size=0.25)+
  scale_color_manual(values = c('Up'='palevioletred1 ','No diff'='navajowhite1 ','Down'='mediumturquoise '))