diagramme UpSet

Code R de l'exemple ggplot2

library(ggplot2)
library(dplyr)
library(gapminder)
library(ComplexUpset)
library(patchwork)

## Four sets of countries in 2007; each bar counts the countries in exactly
## that combination of sets.
start <- gapminder |>
  filter(year == 1952) |>
  select(country, life_1952 = lifeExp)
countries <- gapminder |>
  filter(year == 2007) |>
  left_join(start, by = "country") |>
  transmute(`Life expectancy > 75` = lifeExp > 75,
            `GDP per capita > $20 000` = gdpPercap > 20000,
            `Population > 50 million` = pop > 5e7,
            `Gained 25+ years since 1952` = lifeExp - life_1952 > 25)

p <- upset(countries, names(countries), name = NULL, width_ratio = 0.3, min_size = 1,
           base_annotations = list(Countries = intersection_size(fill = "#9b2367", text = list(size = 2.6, family = "Quicksand"))),
           set_sizes = upset_set_size(geom = geom_bar(fill = "#535353", width = 0.6)) + ylab("Countries"),
           matrix = intersection_matrix(geom = geom_point(size = 2), segment = geom_segment(linewidth = 0.4)),
           themes = upset_default_themes(text = element_text(family = "Quicksand", colour = "#535353"))) +
  ## The plot is a patchwork of three: titles and theme go to the whole.
  plot_annotation(title = "Long life and wealth form the largest intersection",
                  subtitle = "142 countries in 2007, in four sets",
                  caption = "Data: Gapminder, via the gapminder R package",
                  theme = theme_lex_viz(grid = "", arrows = "")) &
  ## Every panel of the patchwork without a background, not only the last.
  theme(plot.background = element_rect(fill = NA, colour = NA))