On Feb 21, 2014, at 11:00 AM, Luigi Marongiu wrote: > 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. >
Labeling is already in the VennDiagram package, and I recently answered a question on SO asking to include percentages as well: http://stackoverflow.com/questions/21715009/adding-percents-to-venn-diagrams-in-r/21717547#21717547 Now admittedly this was only for the set intersections of three sets. The output of `venneuler` is not compatible with that approach, but it does appear that there ir a `draw.quintuple.venn` function in VennDiagram. -- David. > 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@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. David Winsemius Alameda, CA, USA ______________________________________________ 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.
