venn图

> library(VennDiagram)
载入需要的程辑包：grid
> dg1<-read.table("clipboard",header=F)
> dg2<-read.table("clipboard",header=F)
> venn.diagram(list(dg_1_nip=dg1[,1],dg_2_nip=dg2[,1]),fill=c("red","blue"),"rice.tiff")