> 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")
转载于:https://www.cnblogs.com/blueicely/archive/2012/12/24/2831108.html