瀑布图
2020-05-18 本文已影响0人
余绕
#瀑布图
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 '))
