如何移除R语言Eulerr包绘制的韦恩图中的0大小交集区域

问题分析 #

当集合间存在部分非空交集时，Eulerr默认会保留所有理论上的交集区域（包括计数为0的），仅当两个集合完全无交集时才会自动移除对应0区域。比如你的示例中，B与C的交集、A∩B∩C的计数均为0，但因为B和A有交集、C和A有交集，这些0区域仍会被显示。

解决方案：过滤非零交集后重新拟合 #

通过提取初始拟合结果中的非零交集计数，再重新构建Euler对象，即可移除0大小的交集区域。具体步骤如下：

1. 加载包并定义基因列表

library(eulerr)
gene_list = list("A" = c("a", "b", "c", "d"),
                 "B" = c("a", "b"),
                 "C" = c("d", "e", "f"))

2. 生成初始Euler对象，提取非零交集计数

# 生成初始拟合结果
eu_initial <- euler(gene_list)
# 过滤掉拟合值接近0的交集（用1e-6避免浮点精度问题）
non_zero_fits <- eu_initial$fitted.values[eu_initial$fitted.values > 1e-6]

3. 用非零交集重新构建Euler对象并绘图

eu_clean <- euler(non_zero_fits)
# 绘制无0区域的韦恩图
plot(eu_clean,
     quantities = list(type = "counts", cex=3),
     labels=list(cex=3))

原理说明 #

Eulerr的euler()函数支持直接传入命名向量作为输入，其中向量名是集合交集的组合（如"A"代表仅A的元素，"A&B"代表A和B的交集等），值为对应交集的计数。通过过滤掉0值的交集，我们让Eulerr仅基于实际存在的非空交集进行图形拟合，从而自动移除无意义的0大小区域。

内容的提问来源于stack exchange，提问作者ZhuYi Wang