5.401-403 - Exportations de biens et de services par produit (38 postes) - T_5401_5403

Données - INSEE

Structure

Exportations par grande branche de produit

Les exportations françaises sont dominées par les produits industriels (aéronautique, chimie, agroalimentaire) et, de plus en plus, par les services marchands (tourisme, transport, services aux entreprises).

Code
`T_5401_5403` |>
  filter(sheet == "T_5401 en niveau", grepl("^A5_", code)) |>
  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 des exportations") +
  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))

En points de PIB

Code
`T_5401_5403` |>
  filter(sheet == "T_5401 en niveau", grepl("^A5_", code)) |>
  left_join(pib, by = "year") |>
  ggplot() + theme_minimal() + xlab("") + ylab("% du PIB") +
  geom_line(aes(x = year, y = value / pib, color = label)) +
  scale_x_continuous(breaks = seq(1950, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 3))

En volume (base 100 en 1980)

Code
`T_5401_5403` |>
  filter(sheet == "T_5402 en niveau", grepl("^A5_", code)) |>
  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() +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 3))

Par produit détaillé (2025)

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

Table (2025)

Code
`T_5401_5403` |>
  filter(sheet == "T_5401 en niveau", year == last_y, grepl("^A5_", code)) |>
  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 20.4 2.2
Produits industriels (hors travaux de construction) A5_BE 638.6 68.5
Constructions et travaux de construction A5_FZ 0.8 0.1
Services principalement marchands A5_GU 270.2 29.0
Services principalement non marchands (*) A5_OQ 1.8 0.2