欧拉/维恩图布局-如何将所有集合组合在一起？

Question

我想使用“ Eulerr”软件包制作一个欧拉/维纳图，但是

1-圈子不是在一起（我希望A周围的所有圈子）

2-我想在外面加上小圆圈标签

这是我的代码：

library(eulerr)
fit <- euler(c("A"=27009, "B" = 497, "C" = 347, "D" = 218, "E" = 23, 
                "A&B" = 3642, "A&C" = 163),shape = "ellipse")


plot(fit,quantities = list(fontsize = 8))