如何使用R创建维恩图？

# 安装venneuler包
install.packages("venneuler")

# 加载venneuler包
library(venneuler)

# 创建维恩图数据
sets <- list(A = c("apple", "banana", "cherry"),
             B = c("banana", "durian", "elderberry"),
             C = c("cherry", "durian", "fig"))

# 创建维恩图
venn <- venneuler(sets)

# 绘制维恩图
plot(venn)

# 安装VennDiagram包
install.packages("VennDiagram")

# 加载VennDiagram包
library(VennDiagram)

# 创建维恩图数据
set1 <- c("apple", "banana", "cherry")
set2 <- c("banana", "durian", "elderberry")
set3 <- c("cherry", "durian", "fig")

# 创建维恩图
venn.diagram(x = list(A = set1, B = set2, C = set3),
             filename = NULL,
             output = TRUE,
             imagetype = "png",
             main = "Venn Diagram",
             main.cex = 2,
             fill = c("red", "blue", "green"),
             alpha = 0.5,
             label.col = c("black", "white", "darkblue"),
             cex = 1.5,
             fontfamily = "serif",
             cat.col = c("red", "blue", "green"),
             cat.cex = 1.5,
             cat.fontfamily = "serif",
             cat.dist = c(0.03, 0.03, 0.03),
             cat.pos = c(-15, 15, 0),
             cat.just = list(c(0.5, 0.5), c(0.5, 0.5), c(0.5, 0.5)),
             rotation.degree = 0,
             margin = 0.1,
             euler.d = TRUE,
             scaled = FALSE,
             ind = TRUE,
             ext.text = FALSE,
             ext.line = FALSE,
             ext.length = 0.1,
             ext.pos = 1,
             ext.dist = -0.05,
             ext.line.lwd = 1,
             ext.line.lty = "solid",
             ext.line.col = "black",
             lwd = 1,
             lty = "solid",
             col = "black",
             fill.alpha = 0.5,
             cex.prop = 1,
             sep.dist = 0.03,
             sep.lty = "dashed",
             sep.col = "black",
             cat.sep = 0.03,
             cat.lty = "dashed",
             cat.col = "black",
             cat.fontfamily = "serif",
             cat.cex = 1.5,
             rotation.cw = TRUE,
             rotation.degree = 90,
             rotation.ylim = NULL,
             rotation.xlim = NULL,
             rotation.factor = 1,
             rotation.fun = NULL,
             rotation.control = list(),
             zscore = NULL,
             zscore.col = "red",
             zscore.lty = "dashed",
             zscore.lwd = 1,
             zscore.cex = 1.5,
             zscore.fontfamily = "serif",
             zscore.dist = 0.03,
             zscore.pos = 1,
             zscore.side = "both",
             zscore.prop = 0.1,
             zscore.cex.prop = 1,
             zscore.sep.dist = 0.03,
             zscore.sep.lty = "dashed",
             zscore.sep.col = "black",
             zscore.cat.sep = 0.03,
             zscore.cat.lty = "dashed",
             zscore.cat.col = "black",
             zscore.cat.fontfamily = "serif",
             zscore.cat.cex = 1.5,
             zscore.rotation.cw = TRUE,
             zscore.rotation.degree = 90,
             zscore.rotation.ylim = NULL,
             zscore.rotation.xlim = NULL,
             zscore.rotation.factor = 1,
             zscore.rotation.fun = NULL,
             zscore.rotation.control = list())