Solde des échanges extérieurs et principales composantes - econ-gen-solde-ech-ext-2

Name: Solde des échanges extérieurs et principales composantes
Creator: François Geerolf
License: https://www.etalab.gouv.fr/licence-ouverte-open-licence/

Données - INSEE

Auteur

François Geerolf

Info

Solde des échanges extérieurs et principales composantes. html / xlsx

variable

Code

`econ-gen-solde-ech-ext-2` |>
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") |>
  group_by(variable, Variable) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

variable	Variable	Nobs
ALIM	Biens alimentaires	75
AUTR	Autres biens industriels	75
ENER	Energie	75
MATE	Matériels de transport	75
SERV	Services	75
SOLD	Solde du commerce extérieur	75

date

Code

`econ-gen-solde-ech-ext-2` |>
  group_by(year) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  arrange(desc(year)) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Biens, Services, Biens et Services

All

Code

`econ-gen-solde-ech-ext-2` |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  mutate(value = value/gdp) |>
  select(-gdp) |>
  spread(variable, value) |>
  transmute(date,
            Biens = ALIM + AUTR + ENER + MATE,
         Services = SERV,
         `Biens et Services` = SOLD) |>
  gather(variable, value, -date) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = value, color = variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 10) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

1975-

Code

`econ-gen-solde-ech-ext-2` |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  mutate(value = value/gdp) |>
  select(-gdp) |>
  spread(variable, value) |>
  transmute(date,
            `Biens` = ALIM + AUTR + ENER + MATE,
         `Services` = SERV,
         `Biens et Services` = SOLD) |>
  gather(variable, value, -date) |>
  filter(date >= as.Date("1955-01-01")) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = value, color = variable)) + 
  theme(legend.title = element_blank(),
        legend.position = "none") +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("Solde des échanges extérieurs (% du PIB)") + 
  geom_hline(yintercept = 0, linetype = "dashed") +
  geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = value, label = variable, color = variable))

1975-

Code

`econ-gen-solde-ech-ext-2` |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  mutate(value = value/gdp) |>
  select(-gdp) |>
  spread(variable, value) |>
  transmute(date,
            `Biens` = ALIM + AUTR + ENER + MATE,
         `Services` = SERV,
         `Biens et Services` = SOLD) |>
  gather(variable, value, -date) |>
  filter(date >= as.Date("1975-01-01")) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = value, color = variable)) + 
  theme(legend.title = element_blank(),
        legend.position = "none") +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("Solde des échanges extérieurs (% du PIB)") + 
  geom_hline(yintercept = 0, linetype = "dashed") +
  geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = value, label = variable, color = variable))

Energie, Services, Alimentation, Industrie, Transport

Code

`econ-gen-solde-ech-ext-2` |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  mutate(value = value/gdp) |>
  filter(variable %in% c("ENER", "SERV", "AUTR", "ALIM", "MATE")) |>
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") |>
  ggplot() + theme_minimal() + 
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Paires & Solde Extérieur

Industrie, Energie, Solde Extérieur

Code

`econ-gen-solde-ech-ext-2` |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  mutate(value = value/gdp) |>
  filter(variable %in% c("ENER", "SOLD", "AUTR")) |>
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") |>
  ggplot() + xlab("") + ylab("% du PIB") + 
  theme_minimal() + 
  geom_line(aes(x = date, y = value, color = Variable)) +  
  theme(legend.title = element_blank(),
        legend.position = c(0.8, 0.15)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Alimentation, Transport, Solde Extérieur

Code

`econ-gen-solde-ech-ext-2` |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  mutate(value = value/gdp) |>
  filter(variable %in% c("ALIM", "MATE", "SOLD")) |>
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.8, 0.15)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Individu & Solde Extérieur

Services, Solde Extérieur

Code

`econ-gen-solde-ech-ext-2` |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  mutate(value = value/gdp) |>
  filter(variable %in% c("SERV", "SOLD")) |>
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Alimentation, Solde Extérieur

Code

`econ-gen-solde-ech-ext-2` |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  mutate(value = value/gdp) |>
  filter(variable %in% c("ALIM", "SOLD")) |>
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.8, 0.15)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Energie, Solde Extérieur

Code

`econ-gen-solde-ech-ext-2` |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  mutate(value = value/gdp) |>
  filter(variable %in% c("ENER", "SOLD")) |>
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Industrie, Solde Extérieur

Code

`econ-gen-solde-ech-ext-2` |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  mutate(value = value/gdp) |>
  filter(variable %in% c("AUTR", "SOLD")) |>
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Transport, Solde Extérieur

Code

`econ-gen-solde-ech-ext-2` |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  mutate(value = value/gdp) |>
  filter(variable %in% c("MATE", "SOLD")) |>
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Related Data

Données au sujet de l’énergie

source	dataset	Title	Updated
cre	TRV_electricite	TRV électricité - TRV_electricite	2026-09-20
insee	IP2088	2,6 millions de résidences principales encore chauffées au fioul en 2022 - IP2088	2026-09-17
insee	IPCH-2025	Indices des prix à la consommation harmonisés - Base 2025 - IPCH-2025	2026-09-20
insee	IPPMP-NF	Indices de prix et cours des matières premières - IPPMP-NF	2026-09-20
insee	bdf2017	Budget de famille 2017 - bdf2017	2026-09-04
insee	econ-gen-solde-ech-ext-2	Solde des échanges extérieurs et principales composantes - econ-gen-solde-ech-ext-2	2026-08-02
sdes	bilan_energetique	Bilan énergétique - bilan_energetique	2026-08-01

Indicateurs Macroéconomiques France

source	dataset	Title	Updated
bdf	BPM6	Balance des paiements - 6ème manuel - BPM6	2026-09-20
bdf	CFT	Comptes Financiers Trimestriels - CFT	2026-08-10
eurostat	lfsq_ergaed	Employment rates by sex, age and educational attainment level (%) - lfsq_ergaed	2026-09-11
eurostat	une_rt_m	Unemployment by sex and age – monthly data - une_rt_m	2026-09-17
insee	CHOMAGE-TRIM-NATIONAL	Chômage, taux de chômage par sexe et âge (sens BIT) (1975-) - CHOMAGE-TRIM-NATIONAL	2026-09-20
insee	CNA-2014-FBCF-SI	Formation brute de capital fixe (FBCF) par secteur institutionnel - CNA-2014-FBCF-SI	2026-09-20
insee	CNT-2020-CB	Comptes des branches - CNT-2020-CB	2026-09-20
insee	CNT-2020-CSI	Comptes de secteurs institutionnels - CNT-2020-CSI	2026-09-20
insee	CNT-2020-OPERATIONS	Opérations sur biens et services - CNT-2020-OPERATIONS	2026-09-20
insee	CNT-2020-PIB-EQB-RF	Équilibre du produit intérieur brut - CNT-2020-PIB-EQB-RF	2026-09-20
insee	CONSO-MENAGES-2014	Consommation des ménages en biens - CONSO-MENAGES-2014	2026-09-20
insee	CONSO-MENAGES-2020	Consommation des ménages en biens - CONSO-MENAGES-2020	2026-09-20
insee	DEMANDES-EMPLOIS-NATIONALES	Demandeurs d’emploi inscrits à Pôle Emploi - DEMANDES-EMPLOIS-NATIONALES	2026-09-20
insee	EMPLOI-SALARIE-TRIM-NATIONAL	Estimations d’emploi salarié par secteur d’activité - EMPLOI-SALARIE-TRIM-NATIONAL	2026-09-20
insee	ICA-2015-IND-CONS	Indices de chiffre d’affaires dans l’industrie et la construction - ICA-2015-IND-CONS	2026-09-20
insee	conso-mensuelle	Consommation de biens, données mensuelles - conso-mensuelle	2026-08-02
insee	econ-gen-solde-ech-ext-2	Solde des échanges extérieurs et principales composantes - econ-gen-solde-ech-ext-2	2026-08-02
insee	t_conso_vol	Dépenses de consommation des ménages - volumes aux prix de l’année précédente chaînés (données CVS-CJO), base 2014 - t_conso_vol	2026-09-03
insee	t_recapAgent_val	Récapitulatif des séries des comptes d’agents - t_recapAgent_val	2026-09-03
insee	t_zonexp_val	Exportations - Par zone - valeurs aux prix courants - t_zonexp_val	2026-09-03
wdi	NY.GDP.PCAP.PP.CD	GDP per capita, PPP (current international D) - NY.GDP.PCAP.PP.CD	2026-09-20
wdi	NY.GDP.PCAP.PP.KD	GDP per capita, PPP (constant 2011 international D) - NY.GDP.PCAP.PP.KD	2026-09-20