R 维恩图？

我有一些数据如下，我想为他们维恩digram。请让我知道，如果有任何解决方案

dim(a)
1200

dim(b)
420

dim(c)
580

dim(d)
650

数据之间的重叠：

---

有几种工具可以做到这一点。我开发了其中一个，叫做nVennR。根据您提供的数据

library(nVennR)
cVenn <- createVennObj(4, c("a", "b", "c", "d"))
cVenn <- setVennRegion(cVenn, c("a", "b"), 200)
cVenn <- setVennRegion(cVenn, c("a", "c"), 100)
cVenn <- setVennRegion(cVenn, c("c", "b"), 20)
cVenn <- setVennRegion(cVenn, c("a", "d"), 11)
cVenn <- setVennRegion(cVenn, c("b", "d"), 61)
cFig <- plotVenn(nVennObj = cVenn)

---

有多种方法可以构建Vienn图。一种是使用Venniagram软件包：

library(VennDiagram)
grid.newpage()
venn.plot <- draw.quad.venn(
  area1 = 1200,
  area2 = 420,
  area3 = 580,
  area4 = 650,
  n12 = 200,
  n13 = 100,
  n14 = 11,
  n23 = 20,
  n24 = 61,
  n34 = 0,
  n123 = 0,
  n124 = 0,
  n134 = 0,
  n234 = 0,
  n1234 = 0,
  category = c("a", "b", "c", "d"),
  fill = c("orange", "red", "green", "blue"),
  lty = "dashed",
  cex = 2,
  cat.cex = 2,
  cat.col = c("orange", "red", "green", "blue")
)

库（VennDiagram）
grid.newpage（）
维恩图
plotVenn(list(a=a, b=b, c=c, d=d))

library(VennDiagram)
grid.newpage()
venn.plot <- draw.quad.venn(
  area1 = 1200,
  area2 = 420,
  area3 = 580,
  area4 = 650,
  n12 = 200,
  n13 = 100,
  n14 = 11,
  n23 = 20,
  n24 = 61,
  n34 = 0,
  n123 = 0,
  n124 = 0,
  n134 = 0,
  n234 = 0,
  n1234 = 0,
  category = c("a", "b", "c", "d"),
  fill = c("orange", "red", "green", "blue"),
  lty = "dashed",
  cex = 2,
  cat.cex = 2,
  cat.col = c("orange", "red", "green", "blue")
)