Quad_Venn_example.R

require(VennDiagram)
n1234<-1865
n123<-6372
n124<-292
n12<-17486
n134<-204
n13<-791
n14<-73
n1<-14856
n234<-123
n23<-905
n24<-82
n2<-15023
n34<-249
n3<-2516
n4<-468

venn <-draw.quad.venn(area1=n1+n1234+n123+n124+n12+n134+n13+n14,
                      area2=n2+n1234+n123+n124+n12+n234+n23+n24,
                      area3=n3+n1234+n123+n134+n13+n234+n23+n34,
                      area4=n4+n1234+n124+n134+n14+n234+n24+n34,
                      n12=n12+n1234+n123+n124,
                      n13=n13+n1234+n123+n134,
                      n14=n14+n1234+n124+n134,
                      n23=n23+n1234+n123+n234,
                      n24=n24+n1234+n124+n234,
                      n34=n34+n1234+n134+n234,
                      n123=n123+n1234,
                      n124=n124+n1234,
                      n134=n134+n1234,
                      n234=n234+n1234,
                      n1234=n1234,
                      category=c(1,2,3,4),
                      fill=c('red','blue','green','yellow')
)