Last observation: 2025-10-01 (N = 5)
First observation: 2005-01-01 (N = 1)
Last data update: 02 aoû 2026, 11:05. Last compile: 18 aoû 2026, 03:02
Données - INSEE
Last observation: 2025-10-01 (N = 5)
First observation: 2005-01-01 (N = 1)
Last data update: 02 aoû 2026, 11:05. Last compile: 18 aoû 2026, 03:02
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 | 84 |
| S21 | Etats membres de l'UE et institutions de l'UE - Total | 72 |
| S2111 | Etats membres de l'UE et institutions de l'UE - Zone Euro | 72 |
| S2112 | Etats membres de l'UE et institutions de l'UE - Hors Zone Euro | 72 |
| S22 | Pays et institutions hors UE | 72 |
t_zonexp_val |>
group_by(date) |>
summarise(Nobs = n()) |>
arrange(desc(date)) |>
print_table_conditional()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.468 |
| S2111 | Etats membres de l'UE et institutions de l'UE - Zone Euro | 88.587 |
| S2112 | Etats membres de l'UE et institutions de l'UE - Hors Zone Euro | 12.881 |
| S22 | Pays et institutions hors UE | 96.033 |
| S2 | Total | 197.502 |
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, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(-100, 100, 5))
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, 2100, 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))