Last observation: juil. 2026 (N = 438)
First observation: janv. 1994 (N = 438)
Last data update: 20 sept. 2026, 22:26
Last compile: 04 oct. 2026, 23:09
ert_eff_ic_m |>
filter(geo %in% c("FR", "DE", "IT", "ES"),
exch_rt == "NEER_IC42") |>
month_to_date() |>
add_flag_color("Geo") |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + scale_color_identity() + add_flags +
scale_x_date(breaks = as.Date(paste0(seq(1990, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Nominal effective exchange rate (2015 = 100)")
ert_eff_ic_m |>
filter(geo == "FR",
exch_rt %in% c("NEER_IC42", "REER_IC42_CPI")) |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Exch_rt)) +
theme_minimal() +
theme(legend.position = c(0.35, 0.15),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1990, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Effective exchange rate (2015 = 100)") +
scale_color_discrete(labels = c("Nominal (42 partners)", "Real, CPI-deflated (42 partners)"))
latest_m <- ert_eff_ic_m |>
filter(exch_rt == "NEER_IC42",
geo %in% c("FR", "DE", "IT", "ES", "NL", "PL"),
!is.na(values)) |>
summarise(m = max(time)) |>
pull(m)
ert_eff_ic_m |>
filter(geo %in% c("FR", "DE", "IT", "ES", "NL", "PL"),
exch_rt %in% c("NEER_IC42", "REER_IC42_CPI"),
time == latest_m) |>
select(Exch_rt, Geo, values) |>
spread(Geo, values) |>
print_table_conditional()| Exch_rt | France | Germany | Italy | Netherlands | Poland | Spain |
|---|---|---|---|---|---|---|
| Nominal effective exchange rate - 42 trading partners (industrial countries) | 113.6423 | 114.5350 | 115.2574 | 111.3097 | 108.0053 | 113.5156 |
| Real effective exchange rate (deflator: consumer price index - 42 trading partners - industrial countries ) | 102.5319 | 109.1468 | 101.5273 | 111.6708 | 118.2067 | 104.5268 |