R 4组之间重复项数量的维恩图

这是我的df：

df <- data.frame(Group1=c("a","u","b","v","c","z","e","f","k","m","i"),
                 Group2=c("a","u","b","v","y","d","e","t","l","h","i"),
                 Group3=c("a","u","b","v","c","d","r","f","g","n","o"),
                 Group4=c("a","u","x","w","c","d","s","j","g","h","i"))

---

df您可以检查
VennDiagram
软件包

library(VennDiagram)
venn.plot <- venn.diagram(x = as.list(df), filename = NULL )
grid.draw(venn.plot)

库（VennDiagram）
venn.plot如果我们重铸每个列，使其具有相同的级别：

levs<-unique(unlist(df))
df2 <- lapply(df, factor, levs)

我想您可以复制vennCounts函数的定义来保存每次加载的limma

incid <- sapply(df2, table)

source("http://bioconductor.org/biocLite.R")
biocLite("limma")
vennCounts(incid)