r - 在 R 中向维恩图添加样本空间

Question

我正在尝试在 R 上的 jupyter 笔记本中插入一个简单的维恩图。我已经能够使用 VennDiagram 库生成一个简单的 2 组图。但是，我似乎无法弄清楚如何以产生 2 个相交集的方式工作三重图，这些相交集位于另一个更大集的子集中。

也许我使用了错误的库？

编辑：

这是为了说明，我只需要画一个维恩图的例子。数据将类似于：

S=(1,2,3)

A=(1,2)

B=(2,3)

Answer 1

我的 r 包eulerr的最新开发版本现在能够将样本空间列表作为输入。但是，它会生成欧拉图（比例维恩图）（这就是为什么您的规范不会导致两个图在另一个图中相交的原因）。

# devtoools::install_github("jolars/eulerr")

library(eulerr)

ll <- list(S = c(1, 2, 3), A = c(1, 2), B = c(2, 3))

fit <- euler(ll)

plot(fit)

如果您想在三分之一内有两个相交的圆圈，请尝试以下操作：

plot(euler(c(S = 5, "A&B&S" = 3, "A&S" = 1, "B&S" = 1)))