具有多个数字的Rstudio Venn图

Question

我有两个数据集，其中我计算该数据集中每个样本的数量。我希望将两个数据集的每个样本的编号组合在一起，然后使用R创建一个VennDiagram，其中包含最大数据集的主要编号和括号中较小的数据集编号。

我现在使用的R码

grid.newpage()
temp <- draw.triple.venn(area1 = 428, 
             area2 = 145, 
             area3 = 303, 
             n12 = 26, 
             n23 = 16, 
             n13 = 14, 
             n123 = 9,
             category = c("text1", "text2", "text3"),
             scaled=FALSE,
             ext.text=FALSE)

grid.draw(temp)
pdf(file="figure1.pdf")
grid.draw(temp)
dev.off()

我得到的结果是

​

​

我想要创建的

​

​

我看过eulerr包和Venn图包，但我似乎不知道是否有办法实现这一点。

所有的帮助都非常感谢。非常感谢。

Answer 1

不确定‘小’数据集是什么样子的，但这可以解决这个问题

在这里，您将追踪添加到具有自定义标注的格网中，并将y坐标添加到与大型数据集的y坐标成比例的y坐标中

library(VennDiagram)

temp <- draw.triple.venn(area1 = 428, 
                     area2 = 145, 
                     area3 = 303, 
                     n12 = 26, 
                     n23 = 16, 
                     n13 = 14, 
                     n123 = 9,
                     category = c("text1", "text2", "text3"),
                     scaled=FALSE,
                     ext.text=FALSE)


temp[[17]] <- temp[[13]]
temp[[17]]$y <- temp[[13]]$y * 0.8
temp[[17]]$label <- '(3)'

temp[[18]] <- temp[[9]]
temp[[18]]$y <- temp[[9]]$y * 0.95
temp[[18]]$label <- '(4)'

temp[[19]] <- temp[[7]]
temp[[19]]$y <- temp[[7]]$y * 0.95
temp[[19]]$label <- '(5)'

grid.draw(temp)