Récapitulatif de l’équilibre ressources-emplois par produit - Valeurs aux prix courants (trimestriel) - t_recapproduit_val

Données - INSEE

Récapitulatif trimestriel de l’équilibre ressources-emplois par produit (prix courants). Les libellés de produit sont reconstitués à partir de l’en-tête du fichier source.

Structure

Feuille Opération Nobs
Emplois Acquisition moins cessions d'objets de valeur 1550
Emplois Dépenses de consommation collective des APU 2790
Emplois Dépenses de consommation des ISBLSM 1860
Emplois Dépenses de consommation des ménages 7750
Emplois Dépenses de consommation individualisable des APU 5580
Emplois Emplois intermédiaires 7440
Emplois Exportations 7130
Emplois FBCF de l'ensemble des secteurs institutionnels 4650
Emplois FBCF des ISBLSM 3720
Emplois FBCF des administrations publiques 4030
Emplois FBCF des entreprises non financières 4650
Emplois FBCF des ménages 1860
Emplois FBCF des sociétés financières 4340
Emplois Variation de stocks 5270
Emplois Variations de stocks + acquisitions moins cessions d'objets de valeur 5270
Ressources Autres impôts sur les produits 6510
Ressources Correction CAF-FAB 1550
Ressources Importations 7440
Ressources Impôts sur importations 4030
Ressources Marges de commerce 4340
Ressources Marges de transport 4340
Ressources Production produit 7440
Ressources Subventions 5580
Ressources TVA 7440

Production et importations par grand type de produit

Code
RP |>
  filter(code %in% c("P1_DB", "P1_DS", "P7_DB", "P7_DS")) |>
  mutate(poste2 = recode(code, P1_DB = "Production - biens", P1_DS = "Production - services",
                         P7_DB = "Importations - biens", P7_DS = "Importations - services")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Mds € (trimestriel)") +
  geom_line(aes(x = date, y = value, color = poste2)) +
  scale_x_date(date_breaks = "10 years", date_labels = "%Y") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 2))

Taux de pénétration des importations (biens)

Code
RP |>
  filter(code %in% c("P1_DB", "P7_DB")) |>
  select(date, code, value) |>
  tidyr::pivot_wider(names_from = code, values_from = value) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Importations / (production + importations), biens") +
  geom_line(aes(x = date, y = P7_DB / (P1_DB + P7_DB))) +
  scale_x_date(date_breaks = "10 years", date_labels = "%Y") +
  scale_y_continuous(labels = percent_format(accuracy = 1))

Derniers trimestres

Code
RP |>
  filter(date >= last_d %m-% months(9)) |>
  transmute(Trimestre = format(date), Feuille = sheet, Opération = operation,
            Produit = poste, Valeur = round(value, 1)) %>%
  {if (is_html_output()) datatable(., filter = "top", rownames = F) else head(., 60)}