如何获得带有R的嵌套和重叠的维恩图？

install.packages("VennDiagram")

library(VennDiagram)

# 加载VennDiagram包
library(VennDiagram)

# 创建数据集
set1 <- c("A", "B", "C", "D")
set2 <- c("C", "D", "E", "F")
set3 <- c("D", "F", "G", "H")
set4 <- c("D", "H", "I", "J")

# 绘制维恩图
venn.diagram(
  x = list(set1, set2, set3, set4),
  category.names = c("Set 1", "Set 2", "Set 3", "Set 4"),
  filename = "venn.png",
  output = "png",
  main = "Venn Diagram with R",
  main.cex = 2,
  main.fontfamily = "Arial",
  main.fontface = "bold",
  col = "transparent",
  fill = c("cornflowerblue", "green", "yellow", "red"),
  alpha = 0.5,
  cex = 1.5,
  fontfamily = "Arial",
  fontface = "bold",
  cat.fontfamily = "Arial",
  cat.fontface = "bold",
  cat.cex = 1.2,
  cat.pos = 0,
  cat.dist = 0.08,
  cat.default.pos = "outer",
  cat.col = c("black", "black", "black", "black"),
  cat.just = list(c(0.5, 0.5), c(0.5, 0.5), c(0.5, 0.5), c(0.5, 0.5)),
  cat.fontcolor = c("black", "black", "black", "black"),
  rotation.degree = 0,
  margin = 0.1,
  euler.d = TRUE,
  scaled = TRUE,
  ind = TRUE,
  ext = TRUE
)