如何获得由R中的venn-package绘制的维恩图的公共部分的值

Question

现在我在R中使用venn包绘制维恩图并且我成功了。但是我也想得到维恩图的公共部分的价值。虽然我查询了官方文件，但我找不到任何函数来解决我的问题顺便说一下，我需要绘制一套6套图表，所以你不能使用vennDiagram包。我希望得到你的帮助。

library(venn)
venn(list("A" = c(1,2,3),"B" = c(3,4,5),"C" = c(1,2,3,4,5,6)))

Answer 1

对于交叉口的长度，您可以尝试：

library(venn)

v <- venn(list("A" = c(1,2,3),"B" = c(3,4,5),"C" = c(1,2,3,4,5,6)))
lengths(attr(v, "intersections"))

C   B:C   A:C A:B:C 
1     2     2     1 

对于相交的值，您可以执行以下操作：

attr(v, "intersections")

$C
[1] 6

$`B:C`
[1] 4 5

$`A:C`
[1] 1 2

$`A:B:C`
[1] 3