Exportations - Par zone - valeurs aux prix courants - t_zonexp_val

Data - Insee

Author

François Geerolf

Info

source dataset .html .RData

insee

t_zonexp_val

 2024-09-19 2024-09-02

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 78
S21 Etats membres de l'UE et institutions de l'UE - Total 66
S2111 Etats membres de l'UE et institutions de l'UE - Zone Euro 66
S2112 Etats membres de l'UE et institutions de l'UE - Hors Zone Euro 66
S22 Pays et institutions hors UE 66

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.688
S2111 Etats membres de l'UE et institutions de l'UE - Zone Euro 88.671
S2112 Etats membres de l'UE et institutions de l'UE - Hors Zone Euro 13.017
S22 Pays et institutions hors UE 96.631
S2 Total 198.319

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