2021 - Tableau des entrées-sorties symétrique (A38, produit × produit) - TES_symetrique_A38_2021DEF

Données - INSEE

Auteur

François Geerolf

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

Last compile: 24 sept. 2026, 01:55

Le TES symétrique (produit × produit) distingue, pour chaque consommation intermédiaire, la part produite en France et la part importée. Il sert au calcul du contenu en importations et en emploi de la demande finale. Année 2021 (données définitives).

Structure

Feuille Colonnes Nobs
TES de production domestique Domestique 3353
TES des importations Importée 1862

Part importée des consommations intermédiaires par produit

Somme des intrants importés rapportée au total des intrants (domestiques + importés) de chaque produit.

Code 
SYM |>
  filter(col_label %in% brc) |>
  group_by(label, origine) |> summarise(v = sum(value, na.rm = TRUE), .groups = "drop") |>
  tidyr::pivot_wider(names_from = origine, values_from = v) |>
  filter(Domestique + Importée > 0) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Part importée des consommations intermédiaires") +
  geom_col(aes(x = reorder(str_trunc(label, 34), Importée / (Domestique + Importée)),
               y = Importée / (Domestique + Importée)), fill = "#2b6cb0") +
  coord_flip() + scale_y_continuous(labels = percent_format(accuracy = 1)) +
  theme(axis.text.y = element_text(size = 7))

Matrice des entrées intermédiaires domestiques (2021)

Code 
SYM |>
  filter(origine == "Domestique", col_label %in% brc, code %in% brc, !is.na(value)) |>
  ggplot(aes(a17_label(col_label), reorder(str_trunc(label, 28), value), fill = value)) +
  geom_tile(color = "white", linewidth = 0.1) +
  scale_fill_viridis_c(trans = "pseudo_log", labels = comma_format()) +
  theme_minimal() + xlab("Produit consommateur") + ylab("Produit fournisseur") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1, size = 6),
        axis.text.y = element_text(size = 6), legend.position = "none")

Table (2021)

Code 
SYM |>
  transmute(Fournisseur = str_trunc(label, 40), Consommateur = col_label,
            Origine = origine, value = round(value, 1)) %>%
  {if (is_html_output()) datatable(., filter = "top", rownames = F) else head(., 80)}