R help - Feb 2014 - Proportional Venn diagram with 6 sest and labels

Dear all,

I would like to draw a Venn plot for data represented by 6 variables (or
sets). I know how to do this using the package venneuler (which requires
rJava). However this package does not report the numbers of elements within
each class.

Do you know an alternative to this package to draw this without having to
calculate the area of all the possible combinations?

Best wishes,

Luigi



            library(venneuler)

            library(rJava)



a<-c(   1,         1,         1,         1,         1,         1,
   1,
1,         1,         1,         1,         1,         1,         1,
0,            0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,            0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,            0,         0,         0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,            0,         0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,            0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         0,            0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         0,         0)

b<-c(   0,         0,         0,         0,         0,         0,
   0,
0,         0,         0,         0,         0,         0,         0,
1,            1,         1,         1,         1,         1,         1,
1,         1,         1,         1,         1,         1,         1,
1,         1,            1,         1,         1,         1,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,            0,         0,         0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,            0,         0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,            0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         0,            0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         0,         0)

c<-c(   0,         0,         0,         0,         0,         0,
   0,
0,         0,         0,         0,         0,         0,         0,
0,            1,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,            0,         0,         0,         0,         0,
0,         0,         1,         1,         1,         1,         1,
1,         1,         1,            1,         1,         1,         1,
1,         1,         1,         1,         1,         1,         1,
1,         1,         1,         1,            1,         1,         1,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,            0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         0,            0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         0,         0)

d<-c(   0,         0,         0,         0,         0,         0,
   0,
0,         0,         0,         0,         0,         0,         0,
0,            0,         0,         0,         1,         1,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,            0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         1,            0,         0,         0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,            0,         0,         0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,            0,         1,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         1,            0,
0,         0,         0,         0,         0,         0,         0,
0,         0,         0,         0,         0,         0,         0)

e<-c(   1,         1,         1,         0,         0,         0,
   0,
0,         0,         0,         0,         0,         0,         0,
1,            1,         0,         1,         0,         0,         1,
1,         1,         1,         1,         1,         1,         1,
1,         0,            0,         1,         1,         1,         1,
1,         1,         1,         1,         1,         0,         0,
0,         1,         0,            1,         1,         1,         1,
1,         1,         1,         1,         0,         0,         1,
1,         1,         1,         0,            0,         0,         0,
1,         1,         1,         1,         1,         1,         1,
1,         1,         1,         1,         1,            1,         1,
1,         1,         1,         1,         1,         1,         1,
1,         1,         1,         1,         1,         1,            1,
1,         1,         1,         1,         1,         1,         1,
1,         1,         1,         1,         1,         1,         0)

f<-c(    0,         0,         1,         1,         1,         1,
1,         1,         1,         1,         1,         1,         1,
1,         1,            0,         1,         1,         0,         1,
1,         1,         0,         0,         1,         1,         0,
1,         0,         1,            1,         1,         1,         0,
0,         1,         0,         0,         0,         1,         1,
1,         1,         1,         0,            1,         0,         1,
0,         0,         1,         0,         1,         1,         1,
0,         0,         0,         0,         1,            1,         1,
1,         0,         1,         1,         1,         0,         1,
0,         0,         1,         1,         0,         0,            1,
1,         1,         0,         0,         0,         1,         1,
0,         1,         1,         1,         1,         1,         1,
0,         0,         1,         1,         1,         1,         1,
0,         0,         1,         0,         1,         1,         1,
1)



data<-cbind(a,b,c,d,e,f)



plot(venneuler(data), main="test")

	[[alternative HTML version deleted]]