如何使用DeepSeek绘制多种漂亮的韦恩图？

# 1. 安装和加载包 --------------------------------------------------
if (!require("ggVennDiagram")) install.packages("ggVennDiagram")
if (!require("ggplot2")) install.packages("ggplot2")
library(ggVennDiagram)
library(ggplot2)

# 2. 定义7色配色方案 -----------------------------------------------
custom_colors <- c("#699ECA", "#FF8C00", "#F898CB", "#4DAF4A",
                   "#D65190", "#731A73", "#0098B2")

# 3. 生成测试数据函数 ----------------------------------------------
# 生成测试数据函数（优化版）---------------------------------------------
generate_test_data <- function(n_sets) {
  set.seed(123)
  data <- lapply(1:n_sets, function(i) {
    # 动态扩展数据范围（确保样本量 <= 总体数量）
    base_range <- 150# 基础范围跨度
    start <- 100*i - (base_range + 20*i) # 动态左边界
    end <- 100*i + (base_range - 20*i) # 动态右边界
    valid_range <- start:end
    
    # 计算最大允许样本量
    max_sample_size <- length(valid_range)
    sample_size <- min(80 + 20*i, max_sample_size) # 安全取样
    
    sample(valid_range, size = sample_size, replace = FALSE)
  })
  names(data) <- LETTERS[1:n_sets]
return(data)
}

#1. 3分组韦恩图
# 生成数据
venn3_data <- generate_test_data(3)

# 绘制图形
venn3_plot <- ggVennDiagram(
  venn3_data,
  set_color = custom_colors[1:3],
  category.names = c("Group A", "Group B", "Group C"), # 自定义组名
  edge_size = 0.5, # 集合圆圈边框粗细
  label = "both", # 同时显示数值和百分比
  label_alpha = 0, # 标签背景透明度
  label_size = 4                   # 标签文字大小
) + 
  scale_fill_gradient(low = "#F898CB33",high = "#F898CB99") + # 使用前3色
  theme_void() + # 纯净背景
  theme(plot.title = element_text(hjust = 0.5)) # 标题居中

# 展示图形
print(venn3_plot)

# 保存矢量图
ggsave("venn3.pdf", plot = venn3_plot, 
       width = 8, height = 6, device = cairo_pdf)

#2. 4分组韦恩图

venn4_data <- generate_test_data(4)

venn4_plot <- ggVennDiagram(
  venn4_data,
  set_color = custom_colors[1:4], # 集合圆圈边框颜色
  label_alpha = 0, 
  edge_size = 0.5,
  label = "count", 
  label_percent_digit = 1, # 百分比小数位数
  label_txtWidth = 30 # 标签换行宽度（字符数）
) + 
  scale_fill_gradient(low = "#F898CB00",high = "#F898CB99") + # 颜色渐变填充
  theme(legend.position = "none") # 图例位置调整

print(venn4_plot)
ggsave("venn4.svg", plot = venn4_plot, width = 9, height = 7)

#3. 5分组韦恩图

venn5_data <- generate_test_data(5)

venn5_plot <- ggVennDiagram(
  venn5_data,
  set_color = custom_colors[1:5], # 集合圆圈边框颜色
  edge_size = 0.5, 
  label_color = custom_colors[1],
  label = "count", 
  label_size = 4,
  label_alpha = 0, 
  set_size = 5 
) + 
  scale_fill_gradient(low = "#F898CB00",high = "#F898CB99") +
  theme(legend.position = "none") # 图例位置调整


print(venn5_plot)
ggsave("venn5.eps", plot = venn5_plot, width = 10, height = 8)

#4. 7分组韦恩图

venn7_data <- generate_test_data(7)

venn7_plot <- ggVennDiagram(
  venn7_data,
  set_color = custom_colors[1:7], # 集合圆圈边框颜色
  edge_size = 0.5, 
  label_color = custom_colors[1],
  label = "count", 
  label_size = 3,
  label_alpha = 0, 
  order.intersect.by = c("none"),
  order.set.by = c("none"),
  set_size = 5
) + 
  scale_fill_gradient(low = "#F898CB00",high = "#F898CB99") +
  theme(legend.position = "none") # 图例位置调整

print(venn7_plot)
ggsave("venn7.pdf", plot = venn7_plot, width = 12, height = 10)