将dataframe转换为venn图表表

因此，我编写了一个函数，该函数接受数据帧和唯一编号 假设在这种情况下，我们希望唯一的数字是3

   how_much = 100
   A <- sample(how_much, replace = TRUE, x = 1:5) 
   B <- sample(how_much, replace = TRUE, x = 1:5)    
   VennData <- data.frame(A, B)

当我们可以看到，我们有24个观测值，其中A和B都等于3， 20个观测值A等于3，B不等于3， 13个观测值A不等于3，B不等于3等等。

带

集合。种子（43）

带

set.seed（43）

---

带有

data.table的选项

library(data.table)
set.seed(43)
setDT(VennData)[, .N, .(A = A == 3, B = B == 3)]
#     A     B  N
#1: FALSE FALSE 64
#2: FALSE  TRUE 20
#3:  TRUE  TRUE  3
#4:  TRUE FALSE 13

带有
data.table的选项

library(data.table)
set.seed(43)
setDT(VennData)[, .N, .(A = A == 3, B = B == 3)]
#     A     B  N
#1: FALSE FALSE 64
#2: FALSE  TRUE 20
#3:  TRUE  TRUE  3
#4:  TRUE FALSE 13

aggregate(Count ~ ., transform(VennData, A = A == 3, B = B == 3, Count = 1), sum)
#      A     B Count
#1 FALSE FALSE    64
#2  TRUE FALSE    13
#3 FALSE  TRUE    20
#4  TRUE  TRUE     3

library(data.table)
set.seed(43)
setDT(VennData)[, .N, .(A = A == 3, B = B == 3)]
#     A     B  N
#1: FALSE FALSE 64
#2: FALSE  TRUE 20
#3:  TRUE  TRUE  3
#4:  TRUE FALSE 13