thr3ads.net - R help - [R] Venn diagram with numbers within each class [Feb 2014]

If this information is useful, please help other people find it:
Share via:
Luigi Marongiu
2014-Feb-21 18:44 UTC
[R] Venn diagram with numbers within each class

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]]
R help - Feb 2014 - Venn diagram with numbers within each class

[R] Venn diagram with numbers within each class
