Как можно получить значение публичной части диаграммы Венна, которую рисует venn-package в R

Question

Теперь я использую пакет venn в R для рисования диаграммы Венна, и мне это удалось. Но я также хочу получить значение публичной части диаграммы Венна. Хотя я запросил официальный документ, я не могу найти какой-либоФункция, чтобы решить мою проблему. Кстати, мне нужно нарисовать диаграмму из 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