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

Question

我一直在寻找制作具有多个比例场的维恩图的最佳方法，到目前为止，我认为最好的工具是来自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")

我得到了这个：

我已经用很多丑陋的方式添加了传说，但我不喜欢任何传说。此外，我需要在相应的字段中获取相应的值。我需要的图像是我在图像编辑器中编辑的。 我想要的是：

如果您可以向我推荐其他工具或帮我处理代码，我将非常感激 提前致谢！ 干杯！

Answer 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)