如何使用r中的calculate.overlap函数找出哪些元素与维恩图的哪些部分相关？

# 安装和加载VennDiagram包
install.packages("VennDiagram")
library(VennDiagram)

# 创建维恩图对象
venn <- venn.diagram(
  x = list(A = c(1, 2, 3, 4), B = c(3, 4, 5, 6), C = c(5, 6, 7, 8)),
  filename = NULL,
  height = 300,
  width = 300,
  resolution = 300,
  imagetype = "png",
  col = "transparent",
  fill = c("cornflowerblue", "green", "yellow"),
  alpha = 0.50,
  label.col = c("orange", "white", "darkblue"),
  cex = 1.5,
  fontfamily = "serif",
  fontface = "bold",
  cat.col = c("darkblue", "darkgreen", "orange"),
  cat.cex = 1.5,
  cat.fontfamily = "serif",
  cat.fontface = "bold",
  margin = 0.05
)

# 计算重叠部分
overlap <- calculate.overlap(
  x = list(A = c(1, 2, 3, 4), B = c(3, 4, 5, 6), C = c(5, 6, 7, 8))
)

# 绘制维恩图
draw.pairwise.venn(
  venn = venn,
  counts = overlap$counts,
  category.names = c("A", "B", "C"),
  fill = c("cornflowerblue", "green", "yellow"),
  alpha = 0.50,
  label.col = c("orange", "white", "darkblue"),
  cex = 1.5,
  fontfamily = "serif",
  fontface = "bold"
)