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] "ELKTV" "ITZVT" "XYALF" "JONUQ" "VSMBB" "ACWEP" "XQTOY" "WRNVF" "OLEST"
#>  [10] "DGSCZ" "UJAAX" "HDBZT" "NXUBB" "LSURO" "ZNTRA" "HBHBP" "BEOKV" "SZSXV"
#>  [19] "VAUHU" "WRLNT" "VXMSS" "MOYRN" "GCUBJ" "OLXKF" "LAEKS" "MVLLP" "MGIRC"
#>  [28] "UUTSR" "UEOUN" "BMZMN" "FHHJW" "BKKOF" "KDCXW" "GGSZR" "RQABH" "OAPJH"
#>  [37] "MEFNX" "XXONF" "DWQMN" "YQWVC" "VOPSD" "QEDSM" "JCOMV" "BCUSU" "UYLNC"
#>  [46] "DIYHI" "SIANM" "WNRXO" "BOXVC" "ALQJC" "QUXKZ" "TGBQO" "VBKSV" "YKWNC"
#>  [55] "OXERB" "VHMDT" "UGULH" "MWALG" "HYRRN" "MTKPR" "ORWNQ" "HTOMU" "FRBIY"
#>  [64] "QVJMR" "BELXC" "EUGFC" "GZCNG" "KEXFQ" "SITDP" "QKETS" "FLDIM" "DCEOM"
#>  [73] "XMRVK" "VPLGY" "WDMGO" "ENAKQ" "EFNYN" "YEJKH" "RBXVW" "BZEHY" "TVVRH"
#>  [82] "OCVHE" "WJDXB" "VOKOG" "BFTDT" "VBFQC" "JWUFJ" "UEITO" "VCBQK" "TFPPK"
#>  [91] "QVUPA" "TSFWK" "EVDAD" "CLUCZ" "DXMOT" "WPWNA" "KWLJE" "CWDNP" "XALJV"
#> [100] "IWYXP" "FGBVR" "LREXL" "EEMYB" "XGYAR" "OXCNO" "FAALP" "BOTGS" "SFJLZ"
#> [109] "HBEHG" "VUKQN" "GSBAA" "OTDLC" "QXAHS" "WOTXI" "BUPUH" "DAKBE" "TPYTJ"
#> [118] "RZBIM" "DERKP" "ATABR" "STILL" "JDBXQ" "CQVSU" "LOMSJ" "IWCLO" "UAZLT"
#> [127] "EYVOB" "CMANM" "GTQCF" "NDRAR" "HRANY" "FSHGQ" "JZHEF" "OFEWK" "BRBIM"
#> [136] "IDZKY" "LGLZR" "UGRCB" "RQRAQ" "AMZTF" "ADFXE" "DYNFK" "CTJFS" "QXYGE"
#> [145] "ZGAOB" "WILUI" "SXWQD" "TABBC" "JHAVJ" "ZSQNG" "RLKOX" "UILQP" "SAGSD"
#> [154] "ENPGP" "APFXY" "MBWMZ" "VACWE" "HEQAX" "IHEOA" "ZCNPA" "LBHMM" "PKOOG"
#> [163] "KKXMO" "ABPQV" "JVCUR" "XOKVH" "LHLON" "FQYJS" "PTXSN" "FPJWM" "CCNLD"
#> [172] "EHZLJ" "DZXXP" "CCKFD" "BRYUY" "CPCZT" "MOQCF" "GXCEE" "BBXOX" "OIEKH"
#> [181] "TOEKH" "YSQSU" "DZXDP" "CKPIH" "KTYLJ" "ALUBR" "RDZVJ" "LVBWH" "TYRLK"
#> [190] "TOXQX" "HOWMU" "PTCHL" "UNJRV" "MTDZS" "PZRCT" "XUIJL" "ERTHN" "WHLKV"
#> [199] "TTVJU" "RYMZK" "CJDNH" "VKWBY" "PCPTT" "ANJRL" "FVGBE" "WBUWB" "MOABZ"
#> [208] "GXXNB" "ZUWQF" "JOVFI" "AZNLA" "HRHBC" "KPTGK" "KXMSM" "ZLIRX" "RMOHF"
#> [217] "DHLNB" "XYLVC" "KCKRF" "MRUMQ" "UZBDH" "PGKNQ" "URBGJ" "ISJBS" "DEGKS"
#> [226] "QMYTU" "MLVBK" "CUKSL" "NYEII" "LDZFR" "USOKU" "TXWVF" "RCIMJ" "ECPHZ"
#> [235] "MXQXC" "ILZEQ" "LUWVS" "ENITH" "KKREM" "XDDAD" "DVIKX" "XKEOC" "IAXTT"
#> [244] "JDENZ" "PCHYV" "DJPOV" "EUZIP" "TTDBU" "PYWXU" "XBLHW" "VMPAJ" "HUIWB"
#> [253] "PHDOF" "YNDKV" "SPYCB" "JLIGK" "KLTRB" "FVHTP" "SRVBT" "TCBHK" "UPAQY"
#> [262] "NPQLU" "VLNPU" "HSSFT" "WJKYH" "PMGPR" "HIYLR" "WHMOI" "ZPHHW" "BPIAC"
#> [271] "PQOPV" "LVEWS" "SFFWH" "LWZAO" "OBAIF" "MAPPZ" "GYSUF" "YHNIV" "MDOMZ"
#> [280] "FIUUP" "QDJZG" "JXQRK" "BNCBX" "JFIID" "NCVMU" "TTSQS" "GVKSO" "JEAEE"
#> [289] "QSSNK" "VLHLT" "BFNLY" "SBMMN" "APZXA" "NOELB" "IQSFP" "OOQCB" "XGQJU"
#> [298] "QUFNO" "GKIED" "USPZT" "WMSFP" "BYZEC" "NGICQ" "NNMFO" "EDLMY" "VZKBY"
#> [307] "NWMWF" "OQVBM" "YYMCG" "RIVGC" "FWJWI" "CCGPK" "SVIQI" "DVRKB" "QPSJJ"
#> [316] "ELHCY" "NBBGA" "QDUDI" "IMGRO" "OUZXY" "LCSCL" "KPMOZ" "VFYPW" "HZOYR"
#> [325] "VHLUI" "XLCBM" "WHJPI" "ALKFK" "KCLBY" "RHGTN" "DMNNI" "UMJEW" "STRZS"
#> [334] "CWYIH" "APGZF" "PFKQY" "GAODK" "ITILV" "QXVVB" "WQORI" "ZQDHL" "CFJRZ"
#> [343] "PRMDV" "HIAUS" "OWARA" "UFEPF" "VRNVL" "JTPKI" "LAQGI" "FBDOH" "AWSSR"
#> [352] "FOYCD" "ZWLEW" "OHVIK" "TVKPL" "XBUEW" "YIYKL" "RZGKW" "NPMVX" "DASHT"
#> [361] "DZJST" "TPTCB" "ZBLJM" "CRPGE" "MCEIH" "WTFPR" "WPQOX" "CPHDH" "CBEKQ"
#> [370] "RFTUA" "OTUNS" "XEKLU" "CWYKE" "WCLNT" "IKJAO" "SLNAC" "XIXLT" "CACXU"
#> [379] "QQQTM" "BWXSB" "FNJJO" "TGAZA" "ZGWPL" "JLVPP" "DHRDV" "JYJVT" "GUCZU"
#> [388] "WNEEN" "FGLBI" "VJWAC" "AFILG" "PSBHU" "AAFWB" "KFVLM" "SXFMA" "XYCPS"
#> [397] "JIVIJ" "JDKCG" "DPGLP" "YXCZJ"
#> 
#> [[2]]
#>   [1] "HFLVH" "QVUPA" "ACTNH" "MKRZV" "UGRCB" "XNWNA" "CLUCZ" "GGSZR" "USOKU"
#>  [10] "NQAMB" "QGCHC" "UDVPW" "HTOMU" "ZTTPG" "YFPGD" "ZBLJM" "YPIHN" "OOQCB"
#>  [19] "PJIVU" "MOABZ" "NGYJQ" "OUAQU" "IQSFP" "OFEWK" "XTDLL" "ZXDOM" "TGBQO"
#>  [28] "DHIHT" "OXVTI" "XBLHW" "PFKQY" "KARWS" "SFFWH" "AXFFQ" "ZGNXA" "DHSHA"
#>  [37] "WTFPR" "NWUYT" "IDZKY" "LZSEI" "URGRG" "YGTAO" "FZNZG" "OJITU" "VUKQN"
#>  [46] "TPYTJ" "EIBTG" "MSAGD" "MAWBI" "BNCBX" "UGQAB" "HQPHY" "OYTOU" "XMRVK"
#>  [55] "USOJR" "DHLNB" "QDPLM" "YMWEV" "EMMDE" "SGUJR" "UOHXI" "NRPEA" "FEPGE"
#>  [64] "TNZUO" "BRBIM" "WHLTK" "TVDCF" "ISGEW" "JFAHS" "ZCNPA" "JDKCG" "YPDID"
#>  [73] "MVLLP" "MRIUA" "LGLZR" "EOWQN" "MEFNX" "KPMOZ" "UECOZ" "XBUEW" "VRNVL"
#>  [82] "OXCNO" "PKNIS" "GKIIO" "UFEPF" "AOVXP" "XAEPZ" "PHRBZ" "RISMB" "EDLMY"
#>  [91] "APGZF" "OQXFJ" "UEAAY" "JONUQ" "CWEMK" "SIQVL" "WJKYH" "OTDLC" "GZCNG"
#> [100] "RVJTH" "DCEOM" "QLSLJ" "HVAZA" "GKJSJ" "HUPXJ" "NOELB" "QXVSU" "WXKEN"
#> [109] "QEHDM" "NWHAS" "VBFQC" "EBMKY" "WDVGQ" "ABPEG" "SCUAH" "JIEYJ" "PXEMT"
#> [118] "MTPDJ" "LVEWS" "DEKDY" "QUFNO" "HIYLR" "ZBSAO" "ZNTRA" "LNNLH" "TSFWK"
#> [127] "TUTJQ" "IAXTT" "HHNRB" "JHAVJ" "ZBUDU" "JCOMV" "GTQCF" "AAWWU" "KCLBY"
#> [136] "WBUWB" "BORUS" "SONDI" "IQFFQ" "DEDRD" "UAZLT" "CGDGD" "XWCIO" "IBBDW"
#> [145] "ZPHHW" "IFDKO" "JOPLV" "USPZT" "UYYRP" "CCNLD" "PLKOT" "GHWAR" "OVAEA"
#> [154] "HJKSY" "FLJSY" "RQRAQ" "XXOZK" "ZSUHH" "FNJJO" "ERTHN" "VHLUI" "TFPPK"
#> [163] "RHGTN" "FPJWM" "IEUBE" "RFURG" "VRPOU" "WKSKY" "OQFKU" "SRVBT" "JMJKS"
#> [172] "LZFNM" "YIBWL" "XLCBM" "GYUKI" "RATAF" "NGICQ" "MCEIH" "XALJV" "EDJVC"
#> [181] "GXBVI" "GVKSO" "EDVFB" "SSBAI" "STXZE" "HFOZU" "BPIAC" "FHMUG" "PCPTT"
#> [190] "LQRXH" "EDFNS" "IMAMN" "WRNVF" "NDRAR" "JDBXQ" "DGSCZ" "RMOHF" "BSLFX"
#> [199] "WHJPI" "VYUNT" "RAFVB" "FPHEX" "XQTOY" "JHTAB" "OCVHE" "YTIZZ" "GINSV"
#> [208] "LMBNS" "MKDVR" "LOMSJ" "CDVOU" "XDDAD" "DERKP" "MNSMB" "LIOWK" "HFLYL"
#> [217] "HGXHM" "FQYJS" "OLXKF" "XGQJU" "WLJDS" "HVBBK" "RQBKG" "XNYWR" "RTMAH"
#> [226] "WCLNT" "MAVKV" "DWQMN" "UMJEW" "SAWAB" "RHXRX" "ZFOJD" "AFILG" "ATVNW"
#> [235] "QTUGR" "JTPKI" "VIPEH" "ETFXN" "JDSTY" "WYZNL" "CPEAM" "HVJBX" "DZXXP"
#> [244] "DHRDV" "KXESU" "VOPSD" "FEUOP" "QXVVB" "PQOPV" "IGPRV" "SAGSD" "CWYIH"
#> [253] "GDQUH" "IVEGX" "CACXU" "GGSNE" "LBHMM" "VTFKL" "NWCZV" "XTOUX" "UUTSR"
#> [262] "ZWSHE" "OLEST" "PKOOG" "ZYBUC" "HQOPY" "GQUXN" "ALQJC" "XXONF" "EUZIP"
#> [271] "STILL" "YEQOE" "PIDMI" "UOFHL" "QQQTM" "TVKPL" "NEHZC" "PYWXU" "CGNHX"
#> [280] "XAJVW" "WQRCO" "COADZ" "XNDIR" "IXYEL" "RCIMJ" "DEVME" "BBXOX" "IDLGS"
#> [289] "KTYLJ" "OUZXY" "BMZMN" "UFPFL" "LVBWH" "JEAEE" "BXUKU" "QDUDI" "CJDNH"
#> [298] "YGYGE" "NFEVI" "UEOUN" "KXMSM" "VBKSV" "TTVJU" "AYNKI" "UTZSI" "CWYKE"
#> [307] "RMPNG" "RYFTO" "QNOUJ" "LCSCL" "KEXFQ" "LRHGE" "FAALP" "NYEII" "ACGWS"
#> [316] "VZKBY" "HZOYR" "EOBRD" "QYFYR" "CTJFS" "WBBZD" "YYNYP" "KCKRF" "MGSUM"
#> [325] "VEVGZ" "SHYFE" "MXQXC" "RJIKY" "ZJXIT" "YBPZY" "PMCYP" "DQOAA" "IGFYM"
#> [334] "HWZJL" "PSIRZ" "TNVMY" "KSTIF" "DJPOV" "BYZEC" "BDOPH" "FRIRR" "XEKLU"
#> [343] "AZNLA" "SXOEF" "XQXUV" "VRIVY" "XWVOW" "TPTCB" "BSDNF" "YTBBH" "XYCPS"
#> [352] "SVIQI" "NBABR" "QVJMR" "KYYEG" "JHPRL" "YSFZL" "UOUDB" "BCUSU" "POFQA"
#> [361] "GAODK" "KWLJE" "OWARA" "WTEYX" "KRJCX" "NPMVX" "HJRPQ" "HASFB" "VJWAC"
#> [370] "MLVBK" "PHDOF" "ERPAP" "DPGLP" "NBBGA" "GZJQA" "IMGRO" "BRJSN" "SHCKZ"
#> [379] "EXPHP" "OXERB" "RRSXJ" "KQWRD" "NAVUA" "EBMAY" "ADFXE" "ZFUDN" "YMWHE"
#> [388] "JOVFI" "FBOAZ" "BKKOF" "XUIJL" "YYMCG" "MJMME" "WKWDS" "NSSQN" "MWLXK"
#> [397] "SXWQD" "FBZEN" "XLOZV" "XWTXI" "SRLWX" "ENPGP" "LDJMO" "TTDBU" "XOKVH"
#> [406] "HIAUS" "XYALF" "JOEEB" "AMZTF" "VRZRU" "FDCYI" "ZCHCJ" "BMCUC" "BWXSB"
#> [415] "PKEDQ" "YKLHR" "TQSSU" "FSHGQ" "EXORH" "LQMZS" "GCUBJ" "IPOGP" "PGTRZ"
#> [424] "VFYPW" "FMNUJ" "MTDZS" "WQORI" "AWPMH" "FABZR" "OHVIK" "LWZAO" "PTCHL"
#> [433] "QMYTU" "VCMUQ" "OOOLW" "LSURO" "MDOMZ" "CHVLZ" "YYJLW" "ITILV" "BRYUY"
#> [442] "IVVUV" "QPSJJ" "UGULH" "JIKJW" "ELHCY" "SIANM" "CHAJM" "ZCTYS" "VKOTH"
#> [451] "YFOLO" "XSUPV" "ILZEQ" "EUGFC" "NRRLM" "KLTRB" "DWFQF" "GQILJ" "FPYCO"
#> [460] "VACWE" "LBWLV" "KVVBV" "CPCZT" "FGBVR" "RRJIL" "VZFNP" "TRVNV" "ZWLEW"
#> [469] "URBGJ" "KKXRF" "SBMMN" "GGKTJ" "PTXSN" "MXJTW" "VUYAQ" "DOFJA" "XGYAR"
#> [478] "XKEOC" "HRHBC" "NPQLU" "YSQSU" "MBWMZ" "ZHBBD" "CBEKQ" "CFJRZ" "AWWXV"
#> [487] "QFLSC" "WZCXA" "VXMSS" "KPYMD" "JXQRK" "UKYIQ" "EYCYY" "LWAEM" "DTDBY"
#> [496] "HUIWB" "UEPAT" "RXJEP" "TFSTK" "WECLQ" "ZEPPM" "JYJVT" "TUCJA" "VTGNV"
#> [505] "CWDNP" "JLNBC" "VHMDT" "DSBYC" "WCDKZ" "HMYRY" "GUCZU" "PQOLC" "PTKKF"
#> [514] "HBHBP" "ENITH" "ZUWQF" "VKWBY" "CQVSU" "ECPKA" "CKDBS" "OWKMN" "YMHLQ"
#> [523] "IIPFF" "NXUBB" "MCHSW" "ZAXNF" "KFVLM" "KGIXD" "YEJKH" "DYNFK" "MOIOJ"
#> [532] "ALKFK" "RSNOJ" "ZGAOB" "XMEYJ" "EZRRM" "YIOPO" "VFJWH" "YIYKL" "JOYEN"
#> [541] "SLNAC" "WPWNA" "WMJSP" "MOQCF" "RPNOF" "ATABR" "WNEEN" "FBDOH" "AAFWB"
#> [550] "YNDKV" "ZGWPL" "JYSMK" "DZDJN" "VRIVF" "YSKUE" "CHNMC" "JIVIJ" "YHDSA"
#> [559] "GLOYO" "UNJRV" "WOTXI" "JNEGH" "RZBIM" "RDZVJ" "TLPDJ" "LREXL" "QFNRO"
#> [568] "ZPQFB" "VCBQK" "JTDEG" "FANIG" "OUUWW" "UGSGI" "FRQYG" "MTKPR" "MLZKD"
#> [577] "BRJPQ" "QOCBH" "XUEQD" "MAPPZ" "VLHLT" "ITZVT" "LXRXO" "TPEAQ" "VCPJG"
#> [586] "DYACH" "WPQOX" "BPHVP" "ATYOC" "ZSQNG" "QFXKJ" "LFVNF" "WYNUW" "NVRGT"
#> [595] "PVHCB" "SKYBK" "XZRCA" "MRUMQ" "OQVBM" "RTQJZ" "UILQP" "JVCUR" "HKLVW"
#> [604] "HYRRN" "GYSUF" "CMHLI" "AYTEA" "YQEXL" "OERJT" "ZMJYR" "EEUTV" "SMOZL"
#> [613] "BRWEW" "GPAUT" "NKVDO" "NNMFO" "NWLSN" "IHEOA" "IWYXP" "NJZCG" "HWSPU"
#> [622] "JHTGK" "OTUNS" "RIVGC" "AODEF" "BUPUH" "XIXLT" "PWNWT" "ECWPW" "ENAKQ"
#> [631] "WEKBQ" "RRRZM" "APZXA" "RVSST" "YBYZV" "RBXVW" "OWMUC" "BZEHY" "KLLAY"
#> [640] "NABOU" "OIEKH" "CUFJI" "YZXUB" "HRJAB" "DVIKX" "SFJLZ" "CRPGE" "VOKOG"
#> [649] "TYWZY" "IYIRV" "SPYCB" "RFTUA" "FHPUA" "CFLTU" "RUMKE" "OBAIF" "ALUBR"
#> [658] "WILUI" "BEOKV" "WSGEN" "QSXXQ" "ORWNQ" "IYNTI" "FBRPA" "HCEIJ" "VPLGY"
#> [667] "DIYHI" "HOINW" "EYVOB" "FIUUP" "ACJGT" "OAPJH" "HBHFZ" "KKXMO" "RZGKW"
#> [676] "GXCEE" "JWUFJ" "DASHT" "ONKGK" "FLDIM" "QXUAV" "RPUBA" "CKPIH" "EUAWH"
#> [685] "BDVOJ" "QJETJ" "NRBMW" "MOYRN" "SBUYP" "RLKOX" "HEQAX" "ABPQV" "KDCXW"
#> [694] "WRLNT" "NCVMU" "RAUFW" "GSGPT" "LAEKS" "PLMYO" "ICDRA" "UKJIO" "IWCLO"
#> [703] "BQJWY" "OQGZT" "QXZWX" "DZXDP" "QWBAC" "TCBDP" "IVUCT" "YQWVC" "ISJBS"
#> [712] "TABBC" "KIJCX" "BFNLY" "FZPBH" "ZOSAU" "STRZS" "KDYPM" "UPAQY" "VFBKZ"
#> [721] "ECPHZ" "AHTCN" "GPMTL" "HJINS" "DBDSF" "VMPAJ" "OCNAM" "JLVPP" "IXZDD"
#> [730] "SUAOJ" "WMSFP" "CCGPK" "SUEGB" "PZRCT" "QEDSM" "WJDXB" "QNESR" "GEHJK"
#> [739] "BVZKG" "TIRUJ" "WHMOI" "YHNIV" "VIAIV" "ZBHLM" "PSBHU" "IHMOQ" "FWJWI"
#> [748] "SPSHU" "RHYUA" "TYUUV"
#> 
#> [[3]]
#>   [1] "XQXUV" "VJBZB" "IFDKO" "BYZEC" "YONWY" "BORUS" "JDENZ" "RRJIL" "NYEII"
#>  [10] "CHNMC" "CHVLZ" "NEHZC" "SXWQD" "FBZEN" "YKWNC" "VRIVF" "EUAWH" "GYUKI"
#>  [19] "WHJPI" "FLDIM" "POFQA" "BRJSN" "CKDBS" "EEUTV" "QTUGR" "RFTUA" "RPUBA"
#>  [28] "CWYKE" "MNSMB" "CFJRZ" "OIEKH" "IVUCC" "EHZLJ" "NTHRP" "CCNLD" "JTPKI"
#>  [37] "PMCYP" "GXCEE" "XKORE" "RXJEP" "PHRBZ" "TVQJC" "HRJAB" "CRPGE" "IIIYC"
#>  [46] "KQEYI" "EVDAD" "TLPDJ" "NPQLU" "JWJAP" "OFEWK" "XGYAR" "UECOZ" "SIANM"
#>  [55] "IVVUV" "DXMOT" "PSBHU" "CWEMK" "JIKJW" "SFHTC" "FEUOP" "TYWZY" "CWDNP"
#>  [64] "DTDBY" "KXESU" "XAEPZ" "NRPEA" "MPWSU" "PMGPR" "VPHGU" "WQORI" "HVJBX"
#>  [73] "QJETJ" "HCUTB" "IAXTT" "TNZUO" "DVRKB" "URGRG" "KLTRB" "KPYMD" "ZBLJM"
#>  [82] "OCNAM" "RZGKW" "SKWXE" "HEQAX" "AHFCX" "NRBMW" "VRNVL" "YQWVC" "YEDRW"
#>  [91] "WCDKZ" "RVSST" "CUKSL" "IPOGP" "EDVFB" "ZGAOB" "RISMB" "GJDVT" "UVXOL"
#> [100] "GZCNG" "TPRKC" "XGQJU" "YEJKH" "COADZ" "OUUWW" "UNJRV" "MTPDJ" "YBPZY"
#> [109] "VEVGZ" "BPHVP" "YNDKV" "NFEVI" "JOEEB" "IWCLO" "DPGLP" "VOKOG" "XSUPV"
#> [118] "NABOU" "WDVGQ" "ATABR" "FSHGQ" "KJWCT" "HFLYL" "LUVOG" "LZSEI" "WXKEN"
#> [127] "ZUWQF" "BFNLY" "VBKSV" "HUIWB" "DDEDF" "UGULH" "BZFVG" "YXCZJ" "ACGWS"
#> [136] "MOABZ" "UEPAT" "UZBDH" "IKJAO" "DIYHI" "FEPGE" "VSMBB" "BBXOX" "XUIJL"
#> [145] "RMOHF" "OQXFJ" "ZLIRX" "PQKWN" "PVHCB" "CHAJM" "GSGPT" "VXMSS" "SMOZL"
#> [154] "XCPVR" "LWZAO" "JLIGK" "CVLMM" "USPZT" "RTQJZ" "CMANM" "WEKBQ" "FQYJS"
#> [163] "OKBCG" "IGPRV" "XAJVW" "NSDYY" "ZFOJD" "WHLKV" "ATVNW" "XALJV" "WBBZD"
#> [172] "NPMVX" "OLXKF" "YBKNL" "HJKSY" "PGKNQ" "TPTCB" "NGYJQ" "JHAVJ" "YTBBH"
#> [181] "PRMDV" "BELXC" "WBUWB" "XWVOW" "UAZLT" "YYNYP" "FPJWM" "VYUNT" "ZVVRF"
#> [190] "IODLO" "EXORH" "STXZE" "YFOLO" "TYIXP" "BCUSU" "QNESR" "IDZKY" "FAPUO"
#> [199] "NCVMU" "VRIVY" "DEKDY" "EEMYB" "WJKYH" "TQSSU" "BRPTB" "OCVHE" "UUTSR"
#> [208] "RTMAH" "WMJSP" "GGKTJ" "JFAHS" "SFJLZ" "OHVIK" "HZOYR" "MWLXK" "PIDMI"
#> [217] "KCVQY" "WILUI" "ZPDOQ" "QUXKZ" "RYMZK" "YXHAC" "HCUVQ" "DHLNB" "EZRRM"
#> [226] "RUMKE" "RVJTH" "TTDBU" "SXSZD" "QMIHR" "DYNFK" "ELHCY" "SRLWX" "LMBNS"
#> [235] "FGLBI" "EDFNS" "ERUBJ" "QWPSR" "JIVIJ" "JONUQ" "RRDIH" "TXWVF" "TFPPK"
#> [244] "GFPQG" "TYUUV" "YONTR" "UFEPF" "HVAZA" "CKLPW" "QXYGE"
#> 
#> [[4]]
#>   [1] "OYTOU" "EDLMY" "ZBVRE" "WQRCO" "XALJV" "ONKGK" "DXMOT" "ZHBBD" "HUPXJ"
#>  [10] "OVAEA" "NPKXD" "ZFOJD" "VBAGU" "PKOOG" "QNOUJ" "GKIED" "AAFWB" "MTDZS"
#>  [19] "LFVNF" "TSFWK" "FOYCD" "TCBHK" "YKWNC" "SAWAB" "UYLNC" "LXRXO" "SXSZD"
#>  [28] "ERUBJ" "VFYPW" "UEPAT" "NRRLM" "KRIFP" "TIRUJ" "VRZRU" "BSDNF" "VNXGZ"
#>  [37] "FBRPA" "CWYKE" "YBPZY" "JHTAB" "XKORE" "EDVFB" "MYBEM" "QSXXQ" "IKJAO"
#>  [46] "PZRCT" "TVKPL" "CUFJI" "BUPUH" "QPSJJ" "CKLPW" "RXJEP" "HVBBK" "OCVHE"
#>  [55] "ZGWPL" "SBUYP" "TYWZY" "DSBYC" "QVUPA" "MLVBK" "DEGKS" "NWLSN" "NBABR"
#>  [64] "XSZXQ" "KXMSM" "NYEII" "KKXMO" "VLNPU" "KIJCX" "BOTGS" "SLNAC" "TYIXP"
#>  [73] "WPWNA" "QFXKJ" "ZWLEW" "TPEAQ" "VTFKL" "CWDNP" "XKEOC" "LDZFR" "UILQP"
#>  [82] "XSUPV" "HFOZU" "HRJAB" "TGAZA" "RLKOX" "FRIRR" "PFKQY" "DXFLR" "ALQJC"
#>  [91] "QOCBH" "AWWXV" "ZCTYS" "EYCYY" "RRJIL" "QXZWX" "AODEF" "FLJSY" "RTMAH"
#> [100] "YFPGD" "EDFNS" "VCHSX" "FZPBH" "BVZKG" "TABBC" "XGQJU" "TLPDJ" "BCUSU"
#> [109] "TPTCB" "FPJWM" "MOIOJ" "ZYBUC" "KPYMD" "ZMJYR" "OOQCB" "FPHEX" "WCDKZ"
#> [118] "SGUJR" "YEDRW" "VRNVL" "GINSV" "CVNDB" "WBBZD" "FGBVR" "CHAJM" "HIYLR"
#> [127] "SHYFE" "YEJKH" "AXFFQ" "AHFCX" "IWCLO" "TYUUV" "RRSXJ" "XNWNA" "AAWWU"
#> [136] "TPYTJ" "FABZR" "NWMWF" "IYIRV" "YGTAO" "FHHJW" "EUGFC" "VIAQZ" "WTEYX"
#> [145] "JOPLV" "QUFNO" "OYOSA" "PKNIS" "PQOLC" "IEPRF" "IHEOA" "EZRRM" "NJZCG"
#> [154] "RPNOF" "KCGGQ" "XNDIR" "CPEAM" "TVVRH" "TCBDP" "AFILG" "PLMYO" "YXCZJ"
#> [163] "KDCXW" "STILL" "YHNIV" "DBDSF" "LREJW" "OYVTN" "OUAQU" "TUTJQ" "LUWVS"
#> [172] "GKIIO" "YNXMQ" "KCVQY" "MXQXC" "HDBZT" "DIYHI" "XGYAR" "ZFHKC" "YONTR"
#> [181] "VYUNT" "MAWBI" "RYMZK" "JMJKS" "QFLSC" "ZMUHJ" "VFBKZ" "ZVVRF" "DVRKB"
#> [190] "IVVUV" "PMCYP" "IXYEL" "MCHSW" "JHAVJ" "OQFKU" "XDDAD" "WHJPI" "YGYGE"
#> [199] "WIAVH" "ZCNPA" "VACWE" "VSMBB" "HFLVH" "CCNLD" "SZHPX" "RZBIM" "RQABH"
#> [208] "MLZKD" "BYKCI" "ZGAOB" "IBBDW" "AWSSR" "BXUKU" "APGZF" "XAOUY" "ACWEP"
#> [217] "ISJBS" "UKYIQ" "VHLUI" "NKVDO" "MDOMZ" "WPQOX" "PPCEH" "BVCHK" "BWXSB"
#> [226] "ACGWS" "WXKEN" "IWYXP" "VZFNP" "UMJEW" "GGKTJ" "QQQTM" "LQMZS" "CGDGD"
#> [235] "RATAF" "ERELW" "VFJWH" "ZSUHH" "XWVOW" "VIAIV" "YSKUE" "NABOU" "PSBHU"
#> [244] "DVIKX" "MXJTW" "IPOGP" "MTPDJ" "FLDIM" "AIHJQ" "QXVVB" "BDOPH" "AYTEA"
#> [253] "WHLTK" "ECWPW" "PIDMI" "KLTRB" "OWKMN" "RHGTN" "CCGPK" "EOWQN" "FRJUS"
#> [262] "VBKSV" "UOUDB" "UEITO" "BZFVG" "LREXL" "NSDYY" "CHNMC" "AHTCN" "OQGZT"
#> [271] "BQJWY" "MPWSU" "USOKU" "BELXC" "XIXLT" "NPQLU" "RJIKY" "JXDQF" "HVAZA"
#> [280] "VVLSO" "ZBUDU" "WCLNT" "SRLWX" "HKLVW" "KCLBY" "VPZFL" "WTFPR" "YIOPO"
#> [289] "KRBSF" "GCUBJ" "CACXU" "VTNHJ" "SPSHU" "EBMAY" "XOKVH" "ZGNXA" "RFURG"
#> [298] "FEPGE" "LVBWH" "ENAKQ"
#> 

PlotVenn(x=list(GroupA, GroupB))

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

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

#> [[1]]
#>   A  AB   B 
#>  89 311 439 
#> 
#> [[2]]
#>    x y set frq setx
#> 1 -3 0   A  89    A
#> 2  3 0   B 439    B
#> 3  0 0  AB 311   AB
#> 

PlotVenn(x=x[1:3])

#> [[1]]
#>   A  AB ABC  AC   B  BC   C 
#>  64 233  78  25 338 101  46 
#> 
#> [[2]]
#>       x     y set frq setx
#> 1  3.50  0.00   A  64    A
#> 2 -1.75  3.00   B 338    B
#> 3 -1.75 -3.00   C  46    C
#> 4  1.00  1.75  AB 233   AB
#> 5 -2.00  0.00  BC 101   BC
#> 6  1.00 -1.75  AC  25   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 
#>   46  169   55   23   64   17    8   18  230   68   33  108   33   13   33 
#> 
#> [[2]]
#>       x    y  set frq setx
#> 1  -6.0  0.3    A  46    A
#> 2  -4.0 -2.9   AC  17   AC
#> 3  -2.2 -4.2  ACD   8  ACD
#> 4   0.0 -5.7   AD  18   AD
#> 5   2.2 -4.2  ABD  64  ABD
#> 6   3.9 -2.9   BD 108   BD
#> 7   5.9  0.2    D  33    D
#> 8   4.3  2.3   CD  13   CD
#> 9   2.7  4.2    C  33    C
#> 10 -3.1  4.0    B 230    B
#> 11 -4.3  2.3   AB 169   AB
#> 12 -2.6  0.9  ABC  55  ABC
#> 13 -0.1 -1.6 ABCD  23 ABCD
#> 14  2.7  0.8  BCD  33  BCD
#> 15  0.0  3.4   BC  68   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 
#>    23    55    64   169     8    17    18    46   230    68    33   108    33 
#>    CD     D 
#>    13    33 
#> 
#> [[2]]
#>       x    y   set frq  setx
#> 1   4.9  0.5     B 230     B
#> 2  -0.7  4.5     A  NA     A
#> 3  -5.9  1.7     E  NA     E
#> 4  -4.3 -5.5     D  33     D
#> 5   3.1 -6.1     C  33     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  46    AE
#> 10 -3.8  1.5    CE  NA    CE
#> 11 -4.7 -1.1    DE  NA    DE
#> 12 -3.9 -3.1    BD 108    BD
#> 13 -1.5 -5.0    CD  13    CD
#> 14  1.2 -4.7    AC  NA    AC
#> 15  3.3 -3.1    BC  68    BC
#> 16  2.6  0.1   ABE 169   ABE
#> 17  1.8  2.0   ABD  NA   ABD
#> 18  1.2  1.4  ABDE  64  ABDE
#> 19 -0.5  2.4   ADE  18   ADE
#> 20 -2.7  2.2   ACE  17   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  55  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  23 ABCDE
#>