Plot a Venn Diagram

This function produces Venn diagrams for up to 5 datasets.

PlotVenn(x, col = "transparent", plotit = TRUE, labels = NULL)

Arguments

x

the list with the sets to be analysed. Those can be factors or something coercable to a factor.

col

the colors for the sets on the plot.

plotit

logical. Should a plot be produced or just the results be calculated.

labels

special labels for the plot. By default the names of the list x will be used. If those are missing, the LETTERS A..E will be chosen. Set this argument to NA, if no labels at all should be plotted.

Details

The function calculates the necessary frequencies and plots the venn diagram.

Value

a list with 2 elements, the first contains a table with the observed frequencies in the given sets. The second returns a data.frame with the xy coordinates for the labels in the venn diagram, the specific combination of factors and the frequency in that intersection area. The latter can be 0 as well.

References

Venn, J. (1880): On the Diagrammatic and Mechanical Representation of Propositions and Reasonings. Dublin Philosophical Magazine and Journal of Science 9 (59): 1-18.

Edwards, A.W.F. (2004): Cogwheels of the mind: the story of Venn diagrams. JHU Press ISBN 978-0-8018-7434-5.

Author

Andri Signorell <andri@signorell.net>

Examples

element <- function() paste(sample(LETTERS, 5, replace=TRUE), collapse="")
group <- replicate(1000, element())

GroupA <- sample(group, 400, replace=FALSE)
GroupB <- sample(group, 750, replace=FALSE)
GroupC <- sample(group, 250, replace=FALSE)
GroupD <- sample(group, 300, replace=FALSE)

x <- list(GroupA, GroupB, GroupC, GroupD)
x
#> [[1]]
#>   [1] "TZVTH" "YALFU" "ONUQE" "SMBBJ" "CWEPV" "QTOYD" "RNVFZ" "LESTT" "GSCZK"
#>  [10] "JAAXR" "DBZTQ" "XUBBQ" "SUROJ" "NTRAS" "BHBPK" "EOKVM" "ZSXVZ" "AUHUJ"
#>  [19] "RLNTR" "XMSST" "OYRNO" "CUBJV" "LXKFK" "AEKSG" "VLLPT" "GIRCC" "UTSRP"
#>  [28] "EOUNP" "MZMNU" "HHJWE" "KKOFL" "DCXWF" "GSZRW" "QABHS" "APJHP" "DRARE"
#>  [37] "XONFD" "WQMNR" "QWVCS" "OPSDZ" "EDSMU" "COMVB" "CUSUT" "YLNCQ" "IYHIV"
#>  [46] "IANMY" "NRXOT" "OXVCX" "LQJCY" "UXKZB" "GBQOP" "BKSVV" "KWNCU" "XERBJ"
#>  [55] "HMDTP" "GULHV" "CEIJN" "YRRNY" "TKPRA" "RWNQU" "TOMUP" "RBIYL" "OFHLG"
#>  [64] "ELXCB" "UGFCE" "ZCNGI" "EXFQY" "ITDPW" "KETSS" "LDIMY" "CEOMM" "XMOTA"
#>  [73] "PLGYL" "DMGOM" "NAKQU" "FNYNN" "EJKHT" "CIMJW" "ZEHYV" "VVRHG" "CVHEN"
#>  [82] "JDXBC" "OKOGJ" "FTDTU" "BFQCL" "WUFJT" "EITOA" "CBQKF" "FPPKS" "VUPAO"
#>  [91] "SFWKH" "VDADZ" "LUCZW" "AWWUQ" "PWNAV" "WLJEQ" "WDNPO" "ALJVT" "WYXPM"
#> [100] "HONNS" "REXLV" "EMYBM" "GYARX" "XCNOS" "AALPB" "BKNLR" "FJLZZ" "BEHGK"
#> [109] "UKQNT" "SBAAU" "TDLCG" "XAHSD" "OTXII" "UPUHP" "AKBEC" "PYTJE" "FEPFZ"
#> [118] "ERKPR" "TABRC" "TILLP" "DBXQV" "QVSUO" "OMSJZ" "WCLOE" "AZLTM" "YVOBW"
#> [127] "MANMQ" "TQCFN" "CPKAI" "RANYH" "QOPVG" "LKTVY" "PIACU" "RBIMG" "DZKYX"
#> [136] "GLZRJ" "GRCBV" "QRAQH" "MZTFC" "DFXEB" "YNFKU" "TJFSS" "XYGEN" "GAOBX"
#> [145] "ILUII" "XWQDD" "ABBCY" "HAVJZ" "SQNGY" "LKOXS" "ILQPO" "AGSDR" "NPGPB"
#> [154] "PFXYC" "LGUUF" "ACWEH" "EQAXL" "HEOAH" "CNPAB" "BHMMH" "OTGSY" "KXMON"
#> [163] "BPQVO" "VCURT" "OKVHR" "HLONM" "QYJSD" "TXSNB" "PJWMV" "EDRDA" "QORIJ"
#> [172] "SHGQP" "HPRLF" "RYUYK" "PCZTH" "OQCFG" "XCEEK" "BXOXV" "IEKHX" "OEKHZ"
#> [181] "OFJAQ" "NCBXL" "WALGH" "TYLJL" "PMOZD" "DZVJO" "VBWHT" "YRLKW" "OXQXZ"
#> [190] "OWMUG" "TCHLX" "NJRVX" "TDZSM" "ZRCTA" "UIJLD" "FLSCA" "HLKVF" "UQAKY"
#> [199] "YMZKD" "JDNHI" "KWBYJ" "TXVNE" "NJRLI" "VGBEF" "GIXDY" "OABZE" "NOUJH"
#> [208] "UWQFO" "OVFIU" "ZNLAX" "RHBCM" "PTGKC" "XMSMS" "GYGEJ" "MOHFN" "HLNBQ"
#> [217] "YLVCT" "CKRFJ" "RUMQI" "ZBDHH" "GKNQL" "RBGJS" "FPMHA" "EGKSY" "MYTUN"
#> [226] "LVBKG" "UKSLS" "YEIIH" "DZFRM" "TRBMR" "XWVFA" "BUWBK" "CNLDD" "XQXCR"
#> [235] "LZEQH" "UWVSR" "AJVWU" "KREMT" "DDADT" "VIKXY" "KEOCY" "SQSUD" "LNACX"
#> [244] "NZUOI" "JPOVW" "UZIPK" "TDBUZ" "YWXUL" "BLHWC" "MPAJB" "UIWBP" "GSGIV"
#> [253] "NDKVI" "PYCBD" "LIGKJ" "LTRBQ" "VHTPC" "XXNBQ" "CBHKT" "PAQYK" "PQLUN"
#> [262] "LNPUH" "SSFTU" "JKYHM" "MGPRA" "DOMZF" "HMOII" "PHHWZ" "RELWS" "INSVA"
#> [271] "VEWSO" "FFWHK" "NNLHI" "BAIFC" "APPZS" "RXECL" "HNIVO" "YNVIV" "IUUPO"
#> [280] "DJZGV" "HRBZE" "LQOKP" "FIIDW" "CVMUW" "TSQSO" "VKSOK" "KNISS" "RUBJE"
#> [289] "LHLTP" "FNLYW" "BMMNS" "PZXAM" "OELBO" "QSFPT" "OQCBW" "QQTMA" "RBSFN"
#> [298] "KIEDA" "SPZTR" "QXUVF" "YZECQ" "EUTVC" "IOMNL" "GTAOR" "ZKBYN" "WMWFV"
#> [307] "QVBMY" "YMCGU" "ONDIO" "WJWIT" "CGPKY" "GAZAQ" "VRKBA" "PSJJD" "LHCYV"
#> [316] "BBGAZ" "QGSMP" "MGROY" "UZXYM" "ZXUBL" "ZXDPB" "FYPWU" "ZOYRO" "HLUIC"
#> [325] "LCBMY" "HJPII" "MGVYC" "CLBYS" "HGTNX" "MNNIH" "GXHMO" "TRZSO" "WYIHA"
#> [334] "PGZFK" "ZSEIV" "WWXVX" "TILVN" "VUCTE" "HTABD" "QDHLN" "FJRZW" "RMDVL"
#> [343] "IAUSB" "WARAU" "WLEWI" "RNVLQ" "TPKIY" "VDCFI" "BDOHI" "PWSUX" "OYCDF"
#> [352] "VVUVR" "HVIKE" "IPFFB" "BUEWQ" "GBVRV" "ZGKWG" "CPHZC" "ASHTC" "ZJSTB"
#> [361] "RVBTG" "BLJMY" "RPGEB" "CEIHI" "TFPRL" "PQOXW" "PHDHB" "AQGIH" "FTUAZ"
#> [370] "TUNSG" "EKLUK" "WYKEX" "CLNTA" "KJAON" "AEPZP" "LMYOG" "ACXUV" "HFCXG"
#> [379] "TVJUX" "PMTLZ" "UFNOO" "GWPLR" "LVPPG" "NITHQ" "XHACY" "UCZUD" "KSKYW"
#> [388] "SPILR" "JWACU" "FILGL" "SBHUB" "AFWBK" "FVLMF" "YWZYR" "YCPSP" "KOTHC"
#> [397] "DKCGK" "PGLPN" "FSTKZ" "EUBEF"
#> 
#> [[2]]
#>   [1] "CTNHV" "KRZVW" "GRCBV" "NWNAQ" "LUCZW" "GSZRW" "SOKUU" "QAMBL" "GCHCY"
#>  [10] "DVPWA" "TOMUP" "TTPGQ" "FPGDP" "BLJMY" "PIHNV" "OQCBW" "JIVUP" "OABZE"
#>  [19] "GYJQB" "UAQUV" "QSFPT" "KYIQR" "TDLLB" "XDOMY" "GBQOP" "HIHTW" "XVTID"
#>  [28] "BLHWC" "FKQYT" "ARWSP" "FFWHK" "XFFQK" "GNXAR" "HSHAR" "TFPRL" "WUYTF"
#>  [37] "DZKYX" "ZSEIV" "RGRGR" "GTAOR" "ZNZGI" "JITUI" "UKQNT" "PYTJE" "IBTGO"
#>  [46] "SAGDA" "AWBIT" "NCBXL" "GQABV" "QPHYF" "YTOUX" "AWWUQ" "SOJRM" "HLNBQ"
#>  [55] "DPLMY" "MWEVW" "MMDEL" "GUJRX" "OHXIG" "RPEAH" "EPGET" "NZUOI" "RBIMG"
#>  [64] "HLTKO" "VDCFI" "SGEWU" "FAHSY" "CNPAB" "DKCGK" "PDIDG" "VLLPT" "RIUAJ"
#>  [73] "GLZRJ" "OWQNM" "CPKAI" "PMOZD" "ECOZB" "BUEWQ" "RNVLQ" "XCNOS" "KNISS"
#>  [82] "KIIOX" "VVUVR" "OVXPH" "QEYIC" "HRBZE" "ISMBA" "DLMYB" "PGZFK" "QXFJM"
#>  [91] "YSUFU" "ONUQE" "WEMKA" "IQVLP" "JKYHM" "TDLCG" "ZCNGI" "VJTHI" "CEOMM"
#> [100] "LSLJK" "VAZAT" "KJSJV" "UPXJR" "OELBO" "XVSUF" "HPRLF" "EHDMZ" "WHASF"
#> [109] "BFQCL" "BMKYE" "DVGQX" "BPEGP" "CUAHN" "IEYJC" "XEMTS" "TPDJW" "VEWSO"
#> [118] "EKDYP" "UFNOO" "IYLRM" "BSAOC" "NTRAS" "NNLHI" "SFWKH" "UTJQF" "LGUUF"
#> [127] "HNRBD" "HAVJZ" "BUDUF" "COMVB" "TQCFN" "CHSWP" "CLBYS" "ONTRC" "ORUSU"
#> [136] "ONDIO" "QFFQX" "EDRDA" "AZLTM" "GDGDM" "WCIOI" "BBDWI" "PHHWZ" "LLAYJ"
#> [145] "OPLVE" "SPZTR" "YYRPZ" "LKFKV" "LKOTE" "DRARE" "VAEAQ" "JKSYD" "LJSYV"
#> [154] "QRAQH" "XOZKW" "SUHHI" "NJJOG" "RTHNQ" "HLUIC" "FPPKS" "HGTNX" "PJWMV"
#> [163] "SPILR" "PIACU" "RPOUF" "KSKYW" "QFKUX" "RVBTG" "WLEWI" "ZFNMF" "IBWLB"
#> [172] "LCBMY" "YUKIN" "CJGTI" "GICQE" "CEIHI" "ALJVT" "DJVCT" "XBVIR" "VKSOK"
#> [181] "DVFBB" "SBAIO" "TXZEL" "FOZUX" "QBKGJ" "HMUGQ" "UGFCE" "QRXHE" "DFNSL"
#> [190] "EDSMU" "RNVFZ" "EUBEF" "DBXQV" "MJKSJ" "MOHFN" "SSNKE" "HJPII" "YUNTP"
#> [199] "AFVBW" "PHEXJ" "QTOYD" "HXRXD" "CVHEN" "TIZZX" "ZTOWC" "MBNSX" "KDVRH"
#> [208] "OMSJZ" "DVOUF" "DDADT" "ERKPR" "NSMBD" "IOWKH" "FLYLA" "GXHMO" "QYJSD"
#> [217] "LXKFK" "GQJUQ" "LJDSR" "VBBKD" "VUPAO" "NYWRM" "TMAHD" "CLNTA" "AVKVK"
#> [226] "WQMNR" "MJEWH" "AWABE" "SHGQP" "FOJDV" "FILGL" "TVNWH" "TVJUX" "TPKIY"
#> [235] "DOMZF" "XMPJE" "DSTYI" "YZNLV" "VSSTP" "VJBXW" "QOPVG" "HRDVR" "XESUE"
#> [244] "OPSDZ" "EUOPX" "SLFXU" "ABPTM" "GPRVS" "AGSDR" "WYIHA" "DQUHV" "YLNCQ"
#> [253] "ACXUV" "GSNEU" "BHMMH" "AJVWU" "WCZVW" "TOUXF" "UTSRP" "YIXPX" "LESTT"
#> [262] "BKNLR" "YBUCW" "QOPYK" "QUXNL" "LQJCY" "XONFD" "UZIPK" "TILLP" "EQOEN"
#> [271] "GYGEJ" "PWSUX" "CHSXO" "VKPLI" "EHZCA" "YWXUL" "GNHXN" "VLSOG" "QRCOY"
#> [280] "OADZV" "NDIRU" "XYELV" "GIXDY" "EVMEO" "BXOXV" "DLGSL" "CGWSL" "UZXYM"
#> [289] "JBCVY" "XFMAT" "VBWHT" "NMFOE" "XUKUW" "ZRCAI" "JDNHI" "BWMZB" "FEVID"
#> [298] "EOUNP" "XMSMS" "BKSVV" "FEPFZ" "YNKIR" "TZSIM" "WYKEX" "QXUVF" "YFTOT"
#> [307] "KLVWZ" "OSFML" "EXFQY" "RHGEG" "AALPB" "YEIIH" "XQRKP" "RJPQF" "ZKBYN"
#> [316] "ZOYRO" "OBRDO" "YFYRR" "PWNAV" "BBZDP" "YNYPB" "CKRFJ" "GSUMW" "EVGZZ"
#> [325] "HYFEI" "DCIUO" "XQXCR" "JIKYO" "JXITV" "BPZYZ" "MCYPD" "QOAAJ" "GFYMM"
#> [334] "WZJLB" "SIRZH" "MPNGW" "STIFZ" "JPOVW" "YZECQ" "DOPHY" "RIRRX" "EKLUK"
#> [343] "ZNLAX" "XOEFG" "PMTLZ" "LNACX" "TKKFX" "XXNBQ" "SDNFE" "HWARM" "YCPSP"
#> [352] "DENZS" "BABRT" "QGSMP" "YYEGH" "ZXUBL" "SFZLO" "OUDBR" "CUSUT" "OFQAF"
#> [361] "QTBAB" "WLJEQ" "WARAU" "TEYXJ" "RJCXR" "YJDXL" "JRPQW" "ASFBR" "JWACU"
#> [370] "RBIYL" "GBVRV" "RPAPW" "PGLPN" "BBGAZ" "LUBRK" "MGROY" "RJSNK" "HCKZD"
#> [379] "FPFLB" "XERBJ" "RSXJS" "QWRDJ" "AVUAK" "YWZYR" "DFXEB" "FUDNT" "MWHEY"
#> [388] "OVFIU" "BOAZW" "KKOFL" "UIJLD" "YMCGU" "JMMEC" "KWDSQ" "SSQNL" "WLXKR"
#> [397] "XWQDD" "BZENY" "LOZVT" "WTXIO" "RLWXW" "NPGPB" "DJMOB" "TDBUZ" "OKVHR"
#> [406] "IAUSB" "YALFU" "OEEBZ" "MZTFC" "RZRUQ" "DCYIZ" "CHCJA" "MCUCL" "TXVNE"
#> [415] "KEDQG" "KLHRM" "QSSUJ" "INSVA" "XORHG" "QMZSI" "CUBJV" "POGPH" "GTRZG"
#> [424] "FYPWU" "MNUJN" "TDZSM" "XMOTA" "WPMHV" "ABZRX" "HVIKE" "KOOGB" "TCHLX"
#> [433] "MYTUN" "CMUQO" "OOLWZ" "ZCXAM" "FBKZP" "ODLOJ" "YJLWW" "TILVN" "RYUYK"
#> [442] "EPATA" "PSJJD" "GULHV" "YNUWZ" "LHCYV" "ZBIMU" "HAJMP" "CTYSM" "PSHUL"
#> [451] "FOLOX" "SUPVI" "LZEQH" "CNLDD" "RRLMT" "LTRBQ" "MVTUJ" "QILJE" "PYCOB"
#> [460] "ACWEH" "BWLVU" "VVBVJ" "PCZTH" "VIQIV" "RJILL" "ZFNPM" "RVNVW" "ATAFU"
#> [469] "RBGJS" "KXRFQ" "BMMNS" "GKTJA" "TXSNB" "IJCXZ" "KYBKU" "YUTWA" "GYARX"
#> [478] "KEOCY" "RHBCM" "PQLUN" "MEYJH" "ELPOQ" "HBBDJ" "BEKQL" "FJRZW" "WXSBT"
#> [487] "XJTWH" "HZLJW" "QABHS" "PYMDK" "CIMJW" "ZHEFP" "YCYYM" "TFXNG" "TDBYD"
#> [496] "UIWBP" "YNVIV" "XJEPV" "TBBHI" "ECLQR" "EPPMH" "YJVTY" "UCJAE" "TGNVW"
#> [505] "WDNPO" "LNBCS" "HMDTP" "SBYCK" "CDKZJ" "MYRYP" "UCZUD" "QOLCZ" "XMSST"
#> [514] "KWNCU" "UQAKY" "UWQFO" "KWBYJ" "QGZTJ" "GLBID" "UFJIO" "WKMNM" "MHLQF"
#> [523] "PEAMT" "OFHLG" "VEGXB" "AXNFS" "FVLMF" "GAZAQ" "EJKHT" "YNFKU" "OIOJK"
#> [532] "BHBPK" "SNOJO" "GAOBX" "WSHEV" "ZRRMF" "IOPOL" "FJWHZ" "HONNS" "OYENN"
#> [541] "ASBOK" "WPSRO" "MJSPN" "OQCFG" "PNOFH" "ITDPW" "NEENK" "BDOHI" "AFWBK"
#> [550] "NDKVI" "GWPLR" "YSMKY" "ZDJNX" "RIVFS" "SKUEC" "HVLZF" "LQOKP" "HDSAE"
#> [559] "LOYOP" "PCEHV" "OTXII" "NEGHU" "EAAYV" "DZVJO" "LPDJH" "REXLV" "FNROG"
#> [568] "PQFBJ" "CBQKF" "GSGIV" "XZWXG" "UUWWH" "TRBMR" "RQYGR" "TKPRA" "LZKDX"
#> [577] "IKJWY" "OCBHV" "UEQDT" "APPZS" "LHLTP" "TZVTH" "XRXOA" "PEAQI" "CPJGT"
#> [586] "YACHQ" "PQOXW" "PHVPO" "TYOCJ" "SQNGY" "HDOFY" "FVNFC" "IPFFB" "VRGTZ"
#> [595] "CPTTH" "PAUTC" "HNMCW" "RUMQI" "QVBMY" "ZJQAF" "ILQPO" "VCURT" "EFNXN"
#> [604] "YRRNY" "UVOGX" "MHLIH" "YTEAZ" "BMAYE" "ERJTL" "MJYRZ" "ZPBHA" "MOZLZ"
#> [613] "RWEWJ" "QEXLP" "KVDOC" "YLDGY" "WLSNV" "HEOAH" "WYXPM" "JZCGE" "WSPUT"
#> [622] "WAEME" "TUNSG" "IANMY" "ODEFC" "UPUHP" "XCEEK" "WNWTQ" "FNYNN" "NAKQU"
#> [631] "EKBQN" "RRZMM" "PZXAM" "OTGSY" "BYZVG" "BUWBK" "WMUCE" "ZEHYV" "AXTTQ"
#> [640] "ABOUI" "IEKHX" "IDMIZ" "WVOWU" "RJABC" "VIKXY" "FJLZZ" "RPGEB" "OKOGJ"
#> [649] "LVBKG" "YIRVU" "PYCBD" "FTUAZ" "HPUAU" "FLTUX" "UMKET" "QVSUO" "ZXDPB"
#> [658] "ILUII" "EOKVM" "SGENZ" "SXXQJ" "RWNQU" "YNTIL" "BRPAU" "VJMRU" "PLGYL"
#> [667] "IYHIV" "OINWN" "IVIJV" "IUUPO" "KETSS" "APJHP" "BHFZN" "KXMON" "ZGKWG"
#> [676] "WFQFE" "WUFJT" "ASHTC" "IAIVN" "LDIMY" "XUAVF" "PUBAP" "CEIJN" "UAWHC"
#> [685] "DVOJV" "JETJT" "RBMWH" "OYRNO" "BUYPD" "LKOXS" "EQAXL" "BPQVO" "KDBSU"
#> [694] "TUGRE" "CVMUW" "AUFWS" "QQTMA" "AEKSG" "RBSFN" "AODKA" "KJION" "FLSCA"
#> [703] "QJWYQ" "WUUZF" "WWXVX" "WHTID" "WBACN" "CBDPE" "FTDTU" "QWVCS" "VEZZJ"
#> [712] "ABBCY" "DUDIM" "FNLYW" "TJFSS" "LIRXY" "TRZSO" "DYPMV" "PAQYK" "OSAUR"
#> [721] "NKGKP" "HTCNV" "IVGCS" "JINSU" "BDSFA" "MPAJB" "CNAMX" "LVPPG" "XZDDX"
#> [730] "UAOJL" "RPTBZ" "CGPKY" "UEGBA" "ZRCTA" "SQSUD" "JDXBC" "NESRW" "EHJKC"
#> [739] "VZKGJ" "IRUJX" "HMOII" "HNIVO" "IOMNL" "BHLMW" "SBHUB" "RXKDY" "NVMYT"
#> [748] "HTGKW" "HYUAI" "YUUVI"
#> 
#> [[3]]
#>   [1] "QXUVF" "JBZBB" "FDKOD" "YZECQ" "ONWYS" "ORUSU" "DENZS" "RJILL" "YEIIH"
#>  [10] "HNMCW" "HVLZF" "EHZCA" "XWQDD" "BZENY" "KWNCU" "RIVFS" "UAWHC" "YUKIN"
#>  [19] "HJPII" "LDIMY" "OFQAF" "RJSNK" "KDBSU" "EUTVC" "TUGRE" "FTUAZ" "PUBAP"
#>  [28] "WYKEX" "NSMBD" "FJRZW" "IEKHX" "VUCCP" "HZLJW" "THRPA" "CNLDD" "TPKIY"
#>  [37] "MCYPD" "XCEEK" "KOREM" "XJEPV" "HRBZE" "VQJCZ" "RJABC" "RPGEB" "IIYCB"
#>  [46] "QEYIC" "VDADZ" "LPDJH" "PQLUN" "WJAPR" "FEWKB" "GYARX" "ECOZB" "IANMY"
#>  [55] "VVUVR" "XMOTA" "SBHUB" "WEMKA" "IKJWY" "FHTCI" "EUOPX" "YWZYR" "WDNPO"
#>  [64] "TDBYD" "XESUE" "AEPZP" "RPEAH" "PWSUX" "MGPRA" "PHGUS" "QORIJ" "VJBXW"
#>  [73] "JETJT" "CUTBX" "AXTTQ" "NZUOI" "VRKBA" "RGRGR" "LTRBQ" "PYMDK" "BLJMY"
#>  [82] "CNAMX" "ZGKWG" "KWXEZ" "EQAXL" "HFCXG" "RBMWH" "RNVLQ" "QWVCS" "EDRWQ"
#>  [91] "CDKZJ" "VSSTP" "UKSLS" "POGPH" "DVFBB" "GAOBX" "ISMBA" "JDVTH" "VXOLC"
#> [100] "ZCNGI" "PRKCC" "GQJUQ" "EJKHT" "OADZV" "UUWWH" "NJRVX" "TPDJW" "BPZYZ"
#> [109] "EVGZZ" "PHVPO" "NDKVI" "FEVID" "OEEBZ" "WCLOE" "PGLPN" "OKOGJ" "SUPVI"
#> [118] "ABOUI" "DVGQX" "TABRC" "SHGQP" "JWCTO" "FLYLA" "UVOGX" "ZSEIV" "XKENC"
#> [127] "UWQFO" "FNLYW" "BKSVV" "UIWBP" "DEDFZ" "GULHV" "ZFVGS" "XCZJF" "CGWSL"
#> [136] "OABZE" "EPATA" "ZBDHH" "KJAON" "IYHIV" "EPGET" "SMBBJ" "BXOXV" "UIJLD"
#> [145] "MOHFN" "QXFJM" "LIRXY" "QKWNK" "VHCBS" "HAJMP" "SGPTF" "XMSST" "MOZLZ"
#> [154] "CPVRB" "WZAOR" "LIGKJ" "VLMMF" "SPZTR" "TQJZM" "MANMQ" "EKBQN" "QYJSD"
#> [163] "KBCGG" "GPRVS" "AJVWU" "SDYYR" "FOJDV" "HLKVF" "TVNWH" "ALJVT" "BBZDP"
#> [172] "PMVXB" "LXKFK" "BKNLR" "JKSYD" "GKNQL" "PTCBS" "GYJQB" "HAVJZ" "TBBHI"
#> [181] "RMDVL" "ELXCB" "BUWBK" "WVOWU" "AZLTM" "YNYPB" "PJWMV" "YUNTP" "VVRFQ"
#> [190] "ODLOJ" "XORHG" "TXZEL" "FOLOX" "YIXPX" "CUSUT" "NESRW" "DZKYX" "APUOS"
#> [199] "CVMUW" "RIVYJ" "EKDYP" "EMYBM" "JKYHM" "QSSUJ" "RPTBZ" "CVHEN" "UTSRP"
#> [208] "TMAHD" "MJSPN" "GKTJA" "FAHSY" "FJLZZ" "HVIKE" "ZOYRO" "WLXKR" "IDMIZ"
#> [217] "CVQYD" "ILUII" "PDOQL" "UXKZB" "YMZKD" "XHACY" "CUVQR" "HLNBQ" "ZRRMF"
#> [226] "UMKET" "VJTHI" "TDBUZ" "XSZDE" "MIHRW" "YNFKU" "LHCYV" "RLWXW" "MBNSX"
#> [235] "GLBID" "DFNSL" "RUBJE" "WPSRO" "IVIJV" "ONUQE" "RDIHN" "XWVFA" "FPPKS"
#> [244] "FPQGU" "YUUVI" "ONTRC" "FEPFZ" "VAZAT" "KLPWE" "XYGEN"
#> 
#> [[4]]
#>   [1] "YTOUX" "DLMYB" "BVREF" "QRCOY" "ALJVT" "NKGKP" "XMOTA" "HBBDJ" "UPXJR"
#>  [10] "VAEAQ" "PKXDV" "FOJDV" "BAGUC" "KOOGB" "NOUJH" "KIEDA" "AFWBK" "TDZSM"
#>  [19] "FVNFC" "SFWKH" "OYCDF" "CBHKT" "KWNCU" "AWABE" "YLNCQ" "XRXOA" "XSZDE"
#>  [28] "RUBJE" "FYPWU" "EPATA" "RRLMT" "RIFPJ" "IRUJX" "RZRUQ" "SDNFE" "NXGZP"
#>  [37] "BRPAU" "WYKEX" "BPZYZ" "HTABD" "KOREM" "DVFBB" "YBEMZ" "SXXQJ" "KJAON"
#>  [46] "ZRCTA" "VKPLI" "UFJIO" "UPUHP" "PSJJD" "KLPWE" "XJEPV" "VBBKD" "CVHEN"
#>  [55] "GWPLR" "BUYPD" "YWZYR" "SBYCK" "VUPAO" "LVBKG" "EGKSY" "WLSNV" "BABRT"
#>  [64] "SZXQZ" "XMSMS" "YEIIH" "KXMON" "LNPUH" "IJCXZ" "OTGSY" "LNACX" "YIXPX"
#>  [73] "PWNAV" "FXKJM" "WLEWI" "PEAQI" "TFKLQ" "WDNPO" "KEOCY" "DZFRM" "ILQPO"
#>  [82] "SUPVI" "FOZUX" "RJABC" "GAZAQ" "LKOXS" "RIRRX" "FKQYT" "XFLRV" "LQJCY"
#>  [91] "OCBHV" "WWXVX" "CTYSM" "YCYYM" "RJILL" "XZWXG" "ODEFC" "LJSYV" "TMAHD"
#> [100] "FPGDP" "DFNSL" "CHSXO" "ZPBHA" "VZKGJ" "ABBCY" "GQJUQ" "LPDJH" "CUSUT"
#> [109] "PTCBS" "PJWMV" "OIOJK" "YBUCW" "PYMDK" "MJYRZ" "OQCBW" "PHEXJ" "CDKZJ"
#> [118] "GUJRX" "EDRWQ" "RNVLQ" "INSVA" "VNDBV" "BBZDP" "GBVRV" "HAJMP" "IYLRM"
#> [127] "HYFEI" "EJKHT" "XFFQK" "HFCXG" "WCLOE" "YUUVI" "RSXJS" "NWNAQ" "AWWUQ"
#> [136] "PYTJE" "ABZRX" "WMWFV" "YIRVU" "GTAOR" "HHJWE" "UGFCE" "IAQZG" "TEYXJ"
#> [145] "OPLVE" "UFNOO" "YOSAE" "KNISS" "QOLCZ" "EPRFC" "HEOAH" "ZRRMF" "JZCGE"
#> [154] "PNOFH" "CGGQI" "NDIRU" "PEAMT" "VVRHG" "CBDPE" "FILGL" "LMYOG" "XCZJF"
#> [163] "DCXWF" "TILLP" "HNIVO" "BDSFA" "REJWF" "YVTNE" "UAQUV" "UTJQF" "UWVSR"
#> [172] "KIIOX" "NXMQS" "CVQYD" "XQXCR" "DBZTQ" "IYHIV" "GYARX" "FHKCX" "ONTRC"
#> [181] "YUNTP" "AWBIT" "YMZKD" "MJKSJ" "FLSCA" "MUHJF" "FBKZP" "VVRFQ" "VRKBA"
#> [190] "VVUVR" "MCYPD" "XYELV" "CHSWP" "HAVJZ" "QFKUX" "DDADT" "HJPII" "GYGEJ"
#> [199] "IAVHS" "CNPAB" "ACWEH" "SMBBJ" "FLVHC" "CNLDD" "ZHPXH" "ZBIMU" "QABHS"
#> [208] "LZKDX" "YKCID" "GAOBX" "BBDWI" "WSSRK" "XUKUW" "PGZFK" "AOUYX" "CWEPV"
#> [217] "SJBSE" "KYIQR" "HLUIC" "KVDOC" "DOMZF" "PQOXW" "PCEHV" "VCHKA" "WXSBT"
#> [226] "CGWSL" "XKENC" "WYXPM" "ZFNPM" "MJEWH" "GKTJA" "QQTMA" "QMZSI" "GDGDM"
#> [235] "ATAFU" "RELWS" "FJWHZ" "SUHHI" "WVOWU" "IAIVN" "SKUEC" "ABOUI" "SBHUB"
#> [244] "VIKXY" "XJTWH" "POGPH" "TPDJW" "LDIMY" "IHJQI" "XVVBN" "DOPHY" "YTEAZ"
#> [253] "HLTKO" "CWPWE" "IDMIZ" "LTRBQ" "WKMNM" "HGTNX" "CGPKY" "OWQNM" "RJUSS"
#> [262] "BKSVV" "OUDBR" "EITOA" "ZFVGS" "REXLV" "SDYYR" "HNMCW" "HTCNV" "QGZTJ"
#> [271] "QJWYQ" "PWSUX" "SOKUU" "ELXCB" "IXLTP" "PQLUN" "JIKYO" "XDQFV" "VAZAT"
#> [280] "VLSOG" "BUDUF" "CLNTA" "RLWXW" "KLVWZ" "CLBYS" "PZFLK" "TFPRL" "IOPOL"
#> [289] "RBSFN" "CUBJV" "ACXUV" "TNHJH" "PSHUL" "BMAYE" "OKVHR" "GNXAR" "FURGO"
#> [298] "EPGET" "VBWHT" "NAKQU"
#> 

PlotVenn(x=list(GroupA, GroupB))

#> [[1]]
#>   A  AB   B 
#>  98 302 448 
#> 
#> [[2]]
#>    x y set frq setx
#> 1 -3 0   A  98    A
#> 2  3 0   B 448    B
#> 3  0 0  AB 302   AB
#> 
PlotVenn(x=list(Set_1=GroupA, Set_2=GroupB))

#> [[1]]
#>      Set_1 Set_1Set_2      Set_2 
#>         98        302        448 
#> 
#> [[2]]
#>    x y set frq setx
#> 1 -3 0   A  98    A
#> 2  3 0   B 448    B
#> 3  0 0  AB 302   AB
#> 
PlotVenn(x=list(GroupA, GroupB), labels=c("English","Spanish"))

#> [[1]]
#>   A  AB   B 
#>  98 302 448 
#> 
#> [[2]]
#>    x y set frq setx
#> 1 -3 0   A  98    A
#> 2  3 0   B 448    B
#> 3  0 0  AB 302   AB
#> 

PlotVenn(x=x[1:3])

#> [[1]]
#>   A  AB ABC  AC   B  BC   C 
#>  71 224  78  27 348 100  45 
#> 
#> [[2]]
#>       x     y set frq setx
#> 1  3.50  0.00   A  71    A
#> 2 -1.75  3.00   B 348    B
#> 3 -1.75 -3.00   C  45    C
#> 4  1.00  1.75  AB 224   AB
#> 5 -2.00  0.00  BC 100   BC
#> 6  1.00 -1.75  AC  27   AC
#> 7  0.00  0.00 ABC  78  ABC
#> 
PlotVenn(x=x[1:4], col=SetAlpha(c("blue","red","yellow","green","lightblue"), 0.2))

#> [[1]]
#>    A   AB  ABC ABCD  ABD   AC  ACD   AD    B   BC  BCD   BD    C   CD    D 
#>   53  161   53   25   63   19    8   18  243   67   33  105   34   11   37 
#> 
#> [[2]]
#>       x    y  set frq setx
#> 1  -6.0  0.3    A  53    A
#> 2  -4.0 -2.9   AC  19   AC
#> 3  -2.2 -4.2  ACD   8  ACD
#> 4   0.0 -5.7   AD  18   AD
#> 5   2.2 -4.2  ABD  63  ABD
#> 6   3.9 -2.9   BD 105   BD
#> 7   5.9  0.2    D  37    D
#> 8   4.3  2.3   CD  11   CD
#> 9   2.7  4.2    C  34    C
#> 10 -3.1  4.0    B 243    B
#> 11 -4.3  2.3   AB 161   AB
#> 12 -2.6  0.9  ABC  53  ABC
#> 13 -0.1 -1.6 ABCD  25 ABCD
#> 14  2.7  0.8  BCD  33  BCD
#> 15  0.0  3.4   BC  67   BC
#> 

r.venn <- PlotVenn(x=x[1:5], col=SetAlpha(c("blue","red","yellow","green","lightblue"), 0.2))

r.venn
#> [[1]]
#> ABCDE  ABCE  ABDE   ABE  ACDE   ACE   ADE    AE     B    BC   BCD    BD     C 
#>    25    53    63   161     8    19    18    53   243    67    33   105    34 
#>    CD     D 
#>    11    37 
#> 
#> [[2]]
#>       x    y   set frq  setx
#> 1   4.9  0.5     B 243     B
#> 2  -0.7  4.5     A  NA     A
#> 3  -5.9  1.7     E  NA     E
#> 4  -4.3 -5.5     D  37     D
#> 5   3.1 -6.1     C  34     C
#> 6   3.6 -1.1    BE  NA    BE
#> 7   2.4  1.8    AB  NA    AB
#> 8   0.9  2.7    AD  NA    AD
#> 9  -2.3  2.9    AE  53    AE
#> 10 -3.8  1.5    CE  NA    CE
#> 11 -4.7 -1.1    DE  NA    DE
#> 12 -3.9 -3.1    BD 105    BD
#> 13 -1.5 -5.0    CD  11    CD
#> 14  1.2 -4.7    AC  NA    AC
#> 15  3.3 -3.1    BC  67    BC
#> 16  2.6  0.1   ABE 161   ABE
#> 17  1.8  2.0   ABD  NA   ABD
#> 18  1.2  1.4  ABDE  63  ABDE
#> 19 -0.5  2.4   ADE  18   ADE
#> 20 -2.7  2.2   ACE  19   ACE
#> 21 -3.7  0.2   CDE  NA   CDE
#> 22 -4.3 -1.6   BDE  NA   BDE
#> 23 -2.6 -3.3   BCD  33   BCD
#> 24 -0.9 -4.7   ACD  NA   ACD
#> 25  0.9 -3.8   ABC  NA   ABC
#> 26  3.4 -2.5   BCE  NA   BCE
#> 27  2.1 -2.1  ABCE  53  ABCE
#> 28 -2.1  1.5  ACDE   8  ACDE
#> 29 -3.4 -1.3  BCDE  NA  BCDE
#> 30 -0.9 -3.8  ABCD  NA  ABCD
#> 31 -0.5 -0.8 ABCDE  25 ABCDE
#>