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]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
