source | dataset | .html | .RData |
---|---|---|---|
insee | t_zonexp_val | 2024-10-29 | 2024-09-02 |
Exportations - Par zone - valeurs aux prix courants - t_zonexp_val
Data - Insee
Info
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") %>%
+ geom_line(aes(x = date, y = NX, color = Variable)) +
ggplot 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") %>%
+ geom_line(aes(x = date, y = NX, color = Variable)) +
ggplot 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))