如何在R语言中创建线性维恩图（Linear Venn Diagram）？

方法1：用ggupset结合ggplot2实现交集条形化展示 #

ggupset能将集合的交集关系转化为线性条形，完美适配文本型数据，步骤如下：

• 先把原始文本数据整理成长格式：每个元素对应所属集合，一个元素属于多个集合就拆成多行
• 用ggplot2的条形图结合ggupset的解析函数生成线性可视化

示例代码：

# 安装依赖包
install.packages(c("ggplot2", "ggupset"))
library(ggplot2)
library(ggupset)

# 模拟你的文本数据（替换为自己的原始数据）
raw_data <- data.frame(
  element = c(LETTERS[1:10], LETTERS[5:20], LETTERS[15:26]),
  set = c(rep("S1", 10), rep("S2", 16), rep("S3", 12))
)

# 按元素分组，整理每个元素所属的集合列表
element_groups <- split(raw_data$set, raw_data$element)

# 统计各交集的元素数量
intersection_stats <- as.data.frame(table(sapply(element_groups, function(x) paste(sort(x), collapse = ","))))
colnames(intersection_stats) <- c("intersection", "count")

# 绘制线性维恩图
ggplot(intersection_stats, aes(x = intersection, y = count)) +
  geom_bar(stat = "identity", fill = "#4682B4") +
  scale_x_upset(sep = ",") +
  labs(x = "集合交集", y = "元素数量", title = "线性维恩图（交集条形版）") +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

方法2：手动用ggplot2绘制线性重叠区域图 #

如果想要更贴近“线性维恩”的直观重叠效果（每个集合用带透明度的区域覆盖元素范围），可以手动计算元素位置后绘制：

示例代码：

library(ggplot2)

# 给每个文本元素分配线性位置（按字母顺序，可替换为自定义排序）
element_pos <- data.frame(
  element = LETTERS[1:26],
  pos = 1:26
)

# 标记每个元素所属的集合
element_pos$S1 <- element_pos$element %in% LETTERS[1:10]
element_pos$S2 <- element_pos$element %in% LETTERS[5:20]
element_pos$S3 <- element_pos$element %in% LETTERS[15:26]

# 绘制线性维恩图
ggplot(element_pos) +
  # 绘制各集合的覆盖区域
  geom_rect(aes(xmin = min(pos[S1]), xmax = max(pos[S1]), ymin = 1, ymax = 1.5), fill = "#FF6347", alpha = 0.3) +
  geom_rect(aes(xmin = min(pos[S2]), xmax = max(pos[S2]), ymin = 1.5, ymax = 2), fill = "#4169E1", alpha = 0.3) +
  geom_rect(aes(xmin = min(pos[S3]), xmax = max(pos[S3]), ymin = 2, ymax = 2.5), fill = "#32CD32", alpha = 0.3) +
  # 标记元素文本
  geom_text(aes(x = pos, y = 0.8, label = element), size = 3) +
  # 添加集合名称
  annotate("text", x = mean(range(element_pos$pos[S1])), y = 1.25, label = "S1") +
  annotate("text", x = mean(range(element_pos$pos[S2])), y = 1.75, label = "S2") +
  annotate("text", x = mean(range(element_pos$pos[S3])), y = 2.25, label = "S3") +
  # 调整主题
  theme_void() +
  ylim(0.5, 2.7)

方法3：基于venneuler自定义线性布局 #

venneuler能计算维恩图的交集参数，提取后可将布局调整为线性排列：

示例代码：

install.packages("venneuler")
library(venneuler)
library(ggplot2)

# 定义集合列表
sets <- list(S1 = LETTERS[1:10], S2 = LETTERS[5:20], S3 = LETTERS[15:26])

# 计算维恩图基础数据
venn_calc <- venneuler(sets)

# 提取布局数据并调整为线性排列
layout_data <- as.data.frame(venn_calc$centers)
layout_data$x <- c(1, 2, 3)  # 将集合中心设为线性位置
layout_data$radius <- rep(1, 3)  # 统一半径保证重叠效果

# 绘制线性维恩图
ggplot() +
  geom_circle(aes(x0 = x, y0 = 1, r = radius, fill = name), data = layout_data, alpha = 0.3) +
  geom_text(aes(x = x, y = 1, label = name), data = layout_data, size = 5) +
  # 添加交集数量标签
  annotate("text", x = 1, y = 1, label = length(sets$S1) - length(intersect(sets$S1, sets$S2)), size = 4) +
  annotate("text", x = 1.5, y = 1, label = length(intersect(sets$S1, sets$S2)) - length(Reduce(intersect, sets)), size = 4) +
  annotate("text", x = 2, y = 1, label = length(Reduce(intersect, sets)), size = 4) +
  annotate("text", x = 2.5, y = 1, label = length(intersect(sets$S2, sets$S3)) - length(Reduce(intersect, sets)), size = 4) +
  annotate("text", x = 3, y = 1, label = length(sets$S3) - length(intersect(sets$S2, sets$S3)), size = 4) +
  theme_void() +
  coord_fixed()

内容的提问来源于stack exchange，提问作者Delta._.43