library(ggVennDiagram)library(tidyverse)# 创建示例数据集set.seed(123)df <- data.frame(A = sample(1:50, 30), B = sample(1:50, 25), C = sample(1:50, 20))# 将数据集转换为适合绘制 Venn 图的格式df_list <- list(A = df$A, B = df$B, C = df$C)names(df_list) <- c("A", "B", "C")vd <- create_venn_data(df_list)# 绘制 Venn 图ggplot() + geom_venn(data = vd, aes(x = "", y = "", z = "", fill = id), alpha = 0.5, color = "black") + geom_text(data = vd, aes(x = x, y = y, label = label), size = 5) + scale_fill_manual(values = c("#FF0000", "#00FF00", "#0000FF")) + theme_void()

这段代码是利用 ggVennDiagram 包来绘制三个集合的 Venn 图。首先，通过设置种子，创建了一个包含三个变量 A、B 和 C 的数据框 df，它们的取值范围在 1 到 50 之间。然后，将数据框转换为一个列表 df_list，其中每个元素对应一个变量。接着，利用 create_venn_data() 函数将列表转换为适合绘制 Venn 图的格式，得到一个包含 id、x、y 和 label 四个变量的数据框 vd。最后，利用 ggplot2 中的 geom_venn() 函数绘制 Venn 图，并用 geom_text() 函数添加标签文字。scale_fill_manual() 函数用来设置颜色，theme_void() 函数用来去除默认的背景和边框。