5.210-212 - Dépense de consommation collective des administrations publiques par produit - T_5210_5212

Données - INSEE

Structure

Consommation collective des administrations

Services consommés collectivement (administration générale, défense, justice, recherche, entretien de la voirie…) : par nature non individualisables.

Code
`T_5210_5212` |>
  filter(sheet == sh[1], code == "_T") |>
  left_join(pib, by = "year") |>
  ggplot() + theme_minimal() + xlab("") + ylab("% du PIB") +
  geom_line(aes(x = year, y = value / pib)) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1))

Répartition par produit (A38)

Code
`T_5210_5212` |>
  filter(sheet == sh[1], grepl("^A38_", code)) |>
  group_by(year) |>
  mutate(part = value / sum(value)) |>
  ungroup() |>
  arrange(desc(code)) |>
  mutate(label = factor(str_trunc(label, 45), levels = unique(str_trunc(label, 45)))) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Part de la consommation collective") +
  geom_area(aes(x = year, y = part, fill = label)) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  scale_fill_viridis_d() +
  theme(legend.title = element_blank(), legend.position = "bottom",
        legend.text = element_text(size = 7)) +
  guides(fill = guide_legend(ncol = 2))

Par produit détaillé (2025)

Code
`T_5210_5212` |>
  filter(sheet == sh[1], year == last_y, grepl("^A38_", code)) |>
  mutate(label = reorder(str_trunc(label, 55), value)) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Mds €") +
  geom_col(aes(x = label, y = value), fill = "#2b6cb0") +
  coord_flip()

Table (2025)

Code
`T_5210_5212` |>
  filter(sheet == sh[1], year == last_y, grepl("^A38_", code)) |>
  transmute(Produit = label, Code = code, `Mds €` = round(value, 1)) |>
  arrange(desc(`Mds €`)) |>
  print_table_conditional()
Produit Code Mds €
Services d'administration publique et de défense ; services de sécurité sociale obligatoire A38_OZ 224.5
Recherche et développement scientifique A38_MB 17.8
Édition, audiovisuel et diffusion A38_JA 4.1
Autres services A38_SZ 0.9