barres empilées divergentes

Code R de l'exemple ggplot2

library(ggplot2)
library(dplyr)
library(carData)

## "Is the government doing too little, about right or too much for people
## in poverty?": "too little" to the left, "too much" to the right, "about
## right" split across zero.
answers <- WVS |>
  count(country, poverty) |>
  group_by(country) |>
  mutate(share = 100 * n / sum(n)) |>
  ungroup()
left <- answers |>
  filter(poverty != "Too Much") |>
  mutate(share = -ifelse(poverty == "About Right", share / 2, share),
         poverty = factor(poverty, levels = c("About Right", "Too Little")))
right <- answers |>
  filter(poverty != "Too Little") |>
  mutate(share = ifelse(poverty == "About Right", share / 2, share),
         poverty = factor(poverty, levels = c("Too Much", "About Right")))
colours <- c(`Too Little` = "#9b2367", `About Right` = "#d6d6d6", `Too Much` = "#2e7891")

p <- ggplot(mapping = aes(x = share, y = country, fill = poverty)) +
  geom_col(data = left, width = 0.6) +
  geom_col(data = right, width = 0.6) +
  ## Stops below the column labels.
  annotate("segment", x = 0, xend = 0, y = 0.4, yend = 4.35, colour = "#535353", linewidth = 0.4) +
  annotate("text", x = c(-45, 0, 30), y = 4.6, label = c("Too little", "About right", "Too much"),
           colour = c("#9b2367", "#535353", "#2e7891"), size = 3) +
  scale_fill_manual(values = colours) +
  scale_y_discrete(limits = rev, expand = expansion(add = c(0.6, 1))) +
  scale_x_continuous(labels = \(x) paste0(lex_number(abs(x)), "%")) +
  labs(title = "A third of Americans said the government\ndid too much for the poor",
       subtitle = "World Values Surveys, 1995–1997: is the government doing too little or too much for people in poverty?",
       x = "Share of respondents", y = NULL,
       caption = "Data: World Values Surveys, via the carData R package") +
  theme_lex_viz(grid = "x", arrows = "") +
  theme(legend.position = "none")