Vennerable
From Crop Genomics Lab.
library(Vennerable)
data <- read.table("organ.groups.binary.txt.parsed.VennRawInput",col.names="")
organ <- c("Y","SG","MF","LG","Leaf","FF","B")
png(filename="Venn.png",width=2000,height=2000)
plot(Venn(SetNames=organ, Weight=as.vector(data$X)),doWeights=F)
dev.off()