Last data update: 26 oct. 2026, 19:32
Last compile: 26 oct. 2026, 19:46
d1 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(paste(libelle, libelle2)), serie = fct_inorder(serie)) |>
ggplot(aes(x = serie, y = fct_rev(lab), fill = valeur)) +
geom_tile(color = "white") +
scale_x_discrete(labels = scales::label_wrap(12), position = "top") +
scale_y_discrete(labels = scales::label_wrap(40)) +
scale_fill_gradient(low = "#F4F8FD", high = bleu, name = "Unité : Milliard d'euros, en fin d'année") +
theme_pub(9) +
labs(x = NULL, y = NULL, title = str_wrap("8.200 Comptes de patrimoine des secteurs institutionnels de l'année", 75)) +
theme(legend.position = "right", panel.grid = element_blank())