R 用于计算venns图集合交点的函数

我试图编写一个函数来创建一个“维恩图”，但不绘制它们-我需要创建一个类似于维恩图的表，该表计算多少值等于预先选择的数字（在本例中为4）

下面是人工数据：

   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)

---

最后一行只有

FALSE

？对不起，我的错误alredy更新问题最后一行说，在这两列中有43个值不等于预先选择的数字，在本例中假设为4

count    A      B
 24     TRUE   TRUE
 20     TRUE   FALSE
 13     FALSE  TRUE
 43     FALSE  FALSE