如何獲得由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