Dear all,

I would like to draw a Venn plot for data represented by 6 variables. 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 how to display the number of elements using either this or
other packages?

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]]

