r - 如何使用 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)