벤다이어 그램 그리기

require(VennDiagram)
vp <- venn.diagram(list(A=1:5,B=1,C=c(4,8:10),D=c(4:12)), 
                   fill = 2:5, alpha = 0.3, filename = NULL);
grid.draw(vp)

library(gplots)

vp=venn(list(A=1:5,B=1,C=c(4,8:10),D=c(4:12)))