Exportations - Par zone - valeurs aux prix courants - t_zonexp_val

Data - INSEE

Auteur

François Geerolf

Info

source dataset Title .html .rData
insee t_zonexp_val Exportations - Par zone - valeurs aux prix courants - t_zonexp_val 2026-02-16 2026-01-10

Info

  • Échanges extérieurs - Comptes de la Nation en base 2014 - Première estimation. html

variable

Code 
t_zonexp_val %>%
  left_join(variable, by = "variable") %>%
  group_by(variable, Variable) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
variable Variable Nobs
S2 Total 83
S21 Etats membres de l'UE et institutions de l'UE - Total 71
S2111 Etats membres de l'UE et institutions de l'UE - Zone Euro 71
S2112 Etats membres de l'UE et institutions de l'UE - Hors Zone Euro 71
S22 Pays et institutions hors UE 71

date

Code 
t_zonexp_val %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(date)) %>%
  print_table_conditional()

2021T3

Code 
t_zonexp_val %>%
  left_join(variable, by = "variable") %>%
  filter(date == as.Date("2021-07-01")) %>%
  select(variable, Variable, value) %>%
  print_table_conditional()
variable Variable value
S21 Etats membres de l'UE et institutions de l'UE - Total 101.444
S2111 Etats membres de l'UE et institutions de l'UE - Zone Euro 88.563
S2112 Etats membres de l'UE et institutions de l'UE - Hors Zone Euro 12.880
S22 Pays et institutions hors UE 95.947
S2 Total 197.391

Exportations Nettes

Milliards €

Code 
t_zonexp_val %>%
  rename(EXP = value) %>%
  left_join(t_zonimp_val %>%
              rename(IMP = value), by = c("date", "variable")) %>%
  mutate(NX = EXP-IMP) %>%
  left_join(variable, by = "variable") %>%
  ggplot + geom_line(aes(x = date, y = NX, color = Variable)) +
  xlab("") + ylab("Exportations Nettes (Mds€)") + theme_minimal() +
  theme(legend.position = c(0.3, 0.2),
        legend.title = element_blank()) + 
  scale_x_date(breaks = seq(1941, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-100, 100, 5))

% du PIB

Code 
t_zonexp_val %>%
  rename(EXP = value) %>%
  left_join(t_zonimp_val %>%
              rename(IMP = value), by = c("date", "variable")) %>%
  left_join(gdp_quarterly, by = "date") %>%
  mutate(NX = (EXP-IMP)/gdp) %>%
  left_join(variable, by = "variable") %>%
  ggplot + geom_line(aes(x = date, y = NX, color = Variable)) +
  xlab("") + ylab("Exportations Nettes (% du PIB)") + theme_minimal() +
  theme(legend.position = c(0.3, 0.2),
        legend.title = element_blank()) + 
  scale_x_date(breaks = seq(1941, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-100, 100, .5),
                labels = percent_format(accuracy = .1))