#上下调比例条形图
#info1<-read.table("E:/crispr_program/split_cell_lines/feature/aa.txt",sep = "\t",header = T,row.names = 1)
info1<-read.table("E:/crispr_program/data_crispr/onco.expression11.txt",sep = "\t",header = T,row.names = 1)
info1<-as.matrix(info1)
info1["down_onco",]<- (-1)*info1["down_onco",]  #负数
info1["down_ran",] <- (-1)*info1["down_ran",]   #负数

par(mar=c(18,5,5,10),xpd=T)                     #图片位置调节
posit<-barplot(info1[c("up_onco","up_ran"),],beside=T,ylim=c(-0.2,1),col=c("tomato","gray"),
               border=NA,ylab="Ratio",axisnames=FALSE)
barplot(info1[c("down_onco","down_ran"),],beside = T,add=TRUE,col=c("limegreen","gray"),border=NA, axisnames = FALSE)
legend("topleft",legend = c("up-regulated","down-regulated","random"),border=c("tomato","limegreen","gray"),fill=c("tomato","limegreen","gray"),
       inset=0.025,bty = "n")
#text(posit+3,-0.2,c(  "Stage.I","",        "Stage.II","",        "Stage.IIA","",        "Stage.IIB","",        "Stage.III","",        "Stage.IIIA","",        "Stage.IIIB","",        "Stage.IIIC","",        "Stage.IV",""),cex=0.8,srt=60,pos=2,xpd=TRUE)
text(posit+1.5,-0.35,
     c("Breast carcinoma","","Carcinoma of bladder","","Cervical squamous cell carcinoma","","Colon carcinoma","",
       "Endometrial carcinoma","","Esophageal carinoma","","Glioblastoma","",
       "Liver carcinoma","","Lung adenocarcinoma","","Lung squamous cell carcinoma","","Malignant neoplasm of clon with rectum","",
       "Pancreatic carcinoma","","Pheochromocytoma and paraganglioma","",
       "Renal cell carcinoma","","Squamous","","Stomach carcinoma","","Thyroid carcinoma",""),
     cex=0.7,srt=60,pos=2,xpd=TRUE)
abline(h=0,xpd=FALSE)    #添加Y=0;