如何从维恩图中获取元素列表

Question

我有一个由 3 个列表组成的维恩图，我想获取所有不同的子列表、两个列表之间的公共元素、它们的树之间以及每个列表的唯一元素。有没有办法让它尽可能简单？

AW.DL <- c("a","b","c","d")

AW.FL <- c("a","b", "e", "f")

AW.UL <- c("a","c", "e", "g")

venn.diagram(
  x = list(AW.DL, AW.FL, AW.UL),
  category.names = c("AW.DL" , "AW.FL","AW.UL" ),
  filename = '#14_venn_diagramm.png',
  output=TRUE,
  na = "remove"
)

Answer 1

我发现包VennDiagram 有一个函数calculate.overlap()，但我无法从这个函数中找到命名部分的方法。但是，如果您使用包 gplots ，则有函数 venn() 将返回交叉点属性。

AW.DL <- c("a","b","c","d")

AW.FL <- c("a","b", "e", "f")

AW.UL <- c("a","c", "e", "g")

library(gplots)

lst <- list(AW.DL,AW.FL,AW.UL)

ItemsList <- venn(lst, show.plot = FALSE)

lengths(attributes(ItemsList)$intersections)

输出：

> lengths(attributes(ItemsList)$intersections)
    A     B     C   A:B   A:C   B:C A:B:C 
    1     1     1     1     1     1     1

要获取元素，只需打印attributes(ItemsList)$intersections：

> attributes(ItemsList)$intersections
$A
[1] "d"

$B
[1] "f"

$C
[1] "g"

$`A:B`
[1] "b"

$`A:C`
[1] "c"

$`B:C`
[1] "e"

$`A:B:C`
[1] "a"