Dépenses de consommation finale des administrations publiques (niveaux diffusables les plus fins) - T_CONSO_EFF_PRODUITS_APU

Données - INSEE

Structure

Principaux produits (% du total)

Code
`T_CONSO_EFF_PRODUITS_APU` |>
  filter(sheet == "MEURcour", code %in% top8) |>
  left_join(filter(tot17, sheet == "MEURcour") |> select(year, tot), by = "year") |>
  ggplot() + theme_minimal() + xlab("") + ylab("% de la dépense des administrations") +
  geom_line(aes(x = year, y = value / tot, color = str_trunc(label, 45))) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 4))

Par produit (2025, niveau 38 postes)

Code
`T_CONSO_EFF_PRODUITS_APU` |>
  filter(sheet == "MEURcour", year == last_y, grepl("^38_", code)) |>
  mutate(label = reorder(str_trunc(label, 55), value)) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Mds €") +
  geom_col(aes(x = label, y = value / 1000), fill = "#2b6cb0") +
  coord_flip()

En volume (base 100 en 1980)

Code
`T_CONSO_EFF_PRODUITS_APU` |>
  filter(sheet == "MEUR2020", code %in% top8) |>
  group_by(code) |>
  mutate(value = 100 * value / value[year == 1980]) |>
  ungroup() |>
  ggplot() + theme_minimal() + xlab("") + ylab("Volume (1980 = 100, échelle log)") +
  geom_line(aes(x = year, y = value, color = str_trunc(label, 45))) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  scale_y_log10() +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 4))

Prix (base 100 en 2020)

Code
`T_CONSO_EFF_PRODUITS_APU` |>
  filter(sheet == "IPRIX2020", code %in% top8) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Prix (2020 = 100, échelle log)") +
  geom_line(aes(x = year, y = value, color = str_trunc(label, 45))) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  scale_y_log10() +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 4))

Table (2025, niveau 38 postes, Mds €)

Code
`T_CONSO_EFF_PRODUITS_APU` |>
  filter(sheet == "MEURcour", year == last_y, grepl("^38_", code)) |>
  transmute(Produit = label, Code = code, `Mds €` = round(value / 1000, 1)) |>
  arrange(desc(`Mds €`)) |>
  print_table_conditional()
Produit Code Mds €
Services de santé humaine 38_QA 173.9
Services de l'enseignement 38_PZ 127.4
Services d'hébergement médico-social et social ; services d'action sociale sans hébergement 38_QB 52.5
Produits pharmaceutiques de base et préparations pharmaceutiques 38_CF 36.0
Services artistiques et du spectacle et services récréatifs 38_RZ 25.5
Services d'administration publique et de défense ; services de sécurité sociale obligatoire 38_OZ 20.3
Services immobiliers 38_LZ 15.1
Meubles, autres produits manufacturés, réparation et installation de machines et d'équipements 38_CM 7.3
Services de transport et d'entreposage 38_HZ 5.2
Produits informatiques, électroniques et optiques 38_CI 0.9
Services administratifs et d'assistance 38_NZ 0.8
Produits des industries alimentaires, boissons et produits à base de tabac 38_CA 0.6
Électricité, gaz, vapeur et air conditionné 38_DZ 0.5
Services des ménages en tant qu'employeurs ; biens et services divers produits par les ménages pour leur usage propre 38_TZ 0.5
Véhicules autres matériels de transport 38_CL 0.2
Services d'hébergement et de restauration 38_IZ 0.2
Autres services 38_SZ 0.2
Textiles, articles d’habillement, cuir et articles en cuir 38_CB 0.0