diagramme de Venn

Code R de l'exemple ggplot2

library(ggplot2)
library(dplyr)
library(ggforce)
library(gapminder)

## Three sets of countries in 2007; every region drawn, whatever its count.
countries <- gapminder |>
  filter(year == 2007) |>
  mutate(long = lifeExp > 75, rich = gdpPercap > 20000, europe = continent == "Europe")
count_in <- function(l, r, e) {
  sum(countries$long == l & countries$rich == r & countries$europe == e)
}
circles <- tibble(set = c("Life expectancy\nabove 75", "GDP per capita\nabove $20 000", "Europe"),
                  x = c(-0.6, 0.6, 0), y = c(0.35, 0.35, -0.6),
                  lx = c(-1.95, 1.95, 0), ly = c(1.1, 1.1, -1.95))
regions <- tribble(
  ~x,     ~y,    ~l,    ~r,    ~e,
  -1.05,  0.55,  TRUE,  FALSE, FALSE,
  1.05,   0.55,  FALSE, TRUE,  FALSE,
  0,      -1.05, FALSE, FALSE, TRUE,
  0,      0.65,  TRUE,  TRUE,  FALSE,
  -0.6,   -0.3,  TRUE,  FALSE, TRUE,
  0.6,    -0.3,  FALSE, TRUE,  TRUE,
  0,      0,     TRUE,  TRUE,  TRUE
) |>
  mutate(n = mapply(count_in, l, r, e))

p <- ggplot() +
  geom_circle(data = circles, aes(x0 = x, y0 = y, r = 1, colour = set, fill = set),
              alpha = 0.08, linewidth = 0.6) +
  geom_text(data = circles, aes(x = lx, y = ly, label = set, colour = set), size = 2.8,
            lineheight = 0.9) +
  geom_text(data = regions, aes(x = x, y = y, label = n), size = 3.4, colour = "#535353") +
  annotate("text", x = 2.3, y = -1.6, hjust = 1, size = 2.8, colour = "#535353",
           label = paste(count_in(FALSE, FALSE, FALSE), "countries\nin none")) +
  scale_colour_manual(values = unname(lex_colors)) +
  scale_fill_manual(values = unname(lex_colors)) +
  coord_fixed(xlim = c(-2.6, 2.6), ylim = c(-2.1, 1.45)) +
  labs(title = "No rich European country lives below 75 years",
       subtitle = "142 countries in 2007, counted in each region",
       x = NULL, y = NULL,
       caption = "Data: Gapminder, via the gapminder R package") +
  theme_lex_viz(grid = "", arrows = "") +
  theme(legend.position = "none", axis.text = element_blank())