14 韦恩图 Venn图

### 韦恩图
load('../GSE53625_fresh_new/Rdata/GSE53625_chemo_survival.Rdata')
load('./Rdata/HNSC_chemo_survival.Rdata')
library(VennDiagram)
venn.diagram(list(HNSC_UP_neg=HNSC_UP_neg,GSE53625_UP_neg=GSE53625_UP_neg), fill=c("green","blue"), alpha=c(0.5,0.5), cex=2, cat.fontface=4, fontfamily=4, filename="./figure/VennDiagram_UP_neg.png")
venn.diagram(list(HNSC_DOWN_pos=HNSC_DOWN_pos,GSE53625_DOWN_pos=GSE53625_DOWN_pos), fill=c("green","blue"), alpha=c(0.5,0.5), cex=2, cat.fontface=4, fontfamily=4, filename="./figure/VennDiagram_DOWN_pos.png")
?venn.diagram()
UP_neg<- HNSC_UP_neg[HNSC_UP_neg%in%GSE53625_UP_neg]
Down_pos<- HNSC_DOWN_pos[HNSC_DOWN_pos%in%GSE53625_DOWN_pos]

image.png