使用R语言编写一个韦恩图的代码，并给出示范数据

以下是一个使用R语言编写韦恩图的示例代码：

library(VennDiagram)

# 创建示例数据
set.seed(123)
A <- sample(1:50, 30)
B <- sample(1:50, 20)
C <- sample(1:50, 25)

# 绘制韦恩图
venn.diagram(
  x = list(A = A, B = B, C = C),
  filename = "venn.png",
  main = "Venn Diagram",
  col = "transparent",
  fill = c("cornflowerblue", "green", "yellow"),
  alpha = c(0.75, 0.75, 0.75),
  label.col = c("white", "white", "white"),
  cex = 2,
  fontface = "bold",
  cat.cex = 1.5,
  cat.fontface = "bold",
  cat.col = c("cornflowerblue", "green", "yellow"),
  cat.pos = c(-15, 15, 0)
)

这段代码使用了 `VennDiagram` 包来绘制韦恩图。示例数据包括三个向量 A、B 和 C，分别代表三个集合的元素。通过 `list()` 函数将它们打包成一个列表传递给 `x` 参数。

其他参数用于控制绘图的外观，例如颜色、透明度、字体大小等等。在运行代码之后，会生成一个名为 "venn.png" 的图像文件，保存了绘制的韦恩图。

示例数据：

set.seed(123)
A <- sample(1:50, 30)
B <- sample(1:50, 20)
C <- sample(1:50, 25)

这里我们分别生成了三个向量，每个向量包含了 1~50 中的随机数。其中，A 向量包含了 30 个元素，B 向量包含了 20 个元素，C 向量包含了 25 个元素。