5.101-103 - Production par produit (38 postes) - T_5101_5103

Données - INSEE

Auteur

François Geerolf

Last observation: 2025 (N = 288)

First observation: 1949 (N = 63)

Last data update: 08 sept. 2026, 14:35

Last compile: 24 sept. 2026, 01:32

Structure

Structure de la production par grande branche

Recul de l’industrie (de plus d’un tiers de la production dans les années 1950 à moins d’un cinquième), montée des services marchands et non marchands.

Code 
`T_5101_5103` |>
  filter(sheet == "T_5101 en niveau", code %in% a5) |>
  group_by(year) |>
  mutate(part = value / sum(value)) |>
  ungroup() |>
  arrange(desc(code)) |>
  mutate(label = factor(label, levels = unique(label))) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Part de la production totale") +
  geom_area(aes(x = year, y = part, fill = label)) +
  scale_x_continuous(breaks = seq(1950, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  scale_fill_manual(values = viridis(5)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(fill = guide_legend(nrow = 3))

Production en volume

Code 
`T_5101_5103` |>
  filter(sheet == "T_5102 en niveau", code %in% a5) |>
  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 = label)) +
  scale_x_continuous(breaks = seq(1950, 2030, 10)) +
  scale_y_log10(breaks = c(25, 50, 75, 100, 150, 200, 300)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 3))

Prix relatifs (effet Baumol)

Le prix des services non marchands et marchands augmente plus vite que celui des produits industriels : les gains de productivité y sont plus lents.

Code 
`T_5101_5103` |>
  filter(sheet == "T_5103 en niveau", code %in% a5) |>
  group_by(code) |>
  mutate(value = 100 * value / value[year == 1980]) |>
  ungroup() |>
  ggplot() + theme_minimal() + xlab("") + ylab("Prix (1980 = 100)") +
  geom_line(aes(x = year, y = value, color = label)) +
  scale_x_continuous(breaks = seq(1950, 2030, 10)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 3))

Production par produit détaillé (2025)

Code 
`T_5101_5103` |>
  filter(sheet == "T_5101 en niveau", year == last_y, grepl("^A38_", code)) |>
  mutate(label = reorder(str_trunc(label, 55), value)) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Production (Mds €)") +
  geom_col(aes(x = label, y = value), fill = "#2b6cb0") +
  coord_flip()

Table (2025)

Code 
`T_5101_5103` |>
  filter(sheet == "T_5101 en niveau", year == last_y, code %in% a5) |>
  transmute(Produit = label, Code = code, `Mds €` = round(value, 1),
            `% du total` = round(100 * value / sum(value), 1)) |>
  print_table_conditional()
Produit Code Mds € % du total
Produits de l'agriculture et de la chasse et services annexes A5_AZ 96.5 1.8
Produits industriels (hors travaux de construction) A5_BE 1233.7 22.5
Constructions et travaux de construction A5_FZ 402.8 7.3
Services principalement marchands A5_GU 2996.9 54.6
Services principalement non marchands (*) A5_OQ 758.5 13.8