如何使用 R（VennEuler 包）在维恩图中添加图例和值？答案

【问题标题】：how to add legends and values in a Venn diagram using R (VennEuler package)?如何使用 R（VennEuler 包）在维恩图中添加图例和值？
【发布时间】：2016-12-15 13:34:37
【问题描述】：

我一直在寻找制作具有多个比例场的维恩图的最佳方法，到目前为止，我一直认为最好的工具是来自 R 的 venneuler，但我已经修改了很多代码以完全按照我的方式呈现需要它，但我无法获得我需要的格式

使用此代码：

library(rJava)
library(venneuler)
vd <- venneuler(c(A=0.3, B=0.3, C=1.1, "A&B"=0.1, "A&C"=0.2, "B&C"=0.1, "A&B&C"=0.1))
plot(vd)
title("Something")

我得到这个：

我以许多丑陋的方式添加了传说，但我不喜欢任何一种。另外，我需要在各个字段中获取各自的值。我需要的图像在图像编辑器中进行了编辑。我想要的是这样的：

如果您可以向我推荐其他工具或帮助我编写代码，我将不胜感激提前致谢！干杯！

【问题讨论】：

这可能会有所帮助：stackoverflow.com/a/41027549/1691723
从 venn 函数中处理 gList 对象可能会有所帮助。
使用 calculate.overlap 获取每个圆圈的标签。例如overlap <- calculate.overlap(x = list('a' = letters[1:5], 'b' = letters[1:10], 'c' = letters[1:15]));sapply(overlap, length)
看calculate.overlap的源码，了解这个函数的输出。这是非常直接的......
谢谢，我去看看

标签： r venn-diagram

【解决方案1】：

这可以通过我的 r 包eulerr 来完成。

library(eulerr)

vd <- euler(c(A = 0.3, B = 0.3, C = 1.1,
              "A&B" = 0.1, "A&C" = 0.2, "B&C" = 0.1,
              "A&B&C" = 0.1))
plot(vd, key = TRUE, counts = TRUE)

【讨论】：

现在看起来相关的绘图代码（在最新版本中）现在是：plot(vd, legend = TRUE, quantities= TRUE)