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

Données - INSEE

Auteur

François Geerolf

Last observation: 2023 (N = 6)

First observation: 1949 (N = 6)

Last data update: 02 août 2026, 11:04

Last compile: 04 sept. 2026, 01:54

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")