1、参考网址
https://jolars.github.io/eulerr/articles/gallery.html
2、使用R包eulerr绘制韦恩图
library(eulerr)
uniform_intersections <- euler(c("A" = 10, "B" = 10, "C" = 10,
"A&B" = 4, "A&C" = 4, "B&C" = 4,
"A&B&C" = 2))
plot(uniform_intersections)
intersecting_inside <- euler(c("A" = 15, "B" = 0, "C" = 0,
"A&B" = 3, "A&C" = 3, "B&C" = 0,
"A&B&C" = 2))
plot(intersecting_inside,
fills = list(fill = c("lavenderblush2",
"lightblue2",
"lightsalmon",
"",
"",
"",
"plum2")),
legend = list(side = "right"))