Rでベン図を描く方法

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, quantities = list(type = c("percent", "counts")))