Exchange rates

Data - OECD

Author

François Geerolf

Info

source dataset Title .html .rData
oecd REFSERIES_MSIT Exchange rates 2026-08-11 2026-08-02

Data on xrates

source dataset Title .html .rData
oecd REFSERIES_MSIT Exchange rates 2026-08-11 2026-08-02
bdf EXR Exchange Rate 2026-08-11 2026-08-10
bis EER Real Effective Exchange Rates, Monthly 2026-08-11 2026-07-25
bis EER_D Real Effective Exchange Rates, Daily 2026-08-11 2026-07-25
bis XRU Exchange Rates 2026-08-11 2026-07-25
bis XRU_D Exchange Rates, Daily 2026-08-11 2026-07-25
ecb EXR Exchange Rates 2026-08-12 2026-08-11
eurostat ert_bil_eur_d Euro/ECU exchange rates - daily data 2026-08-11 2026-07-14
eurostat ert_h_eur_d Former euro area national currencies vs. euro/ECU - daily data 2026-08-11 2026-08-02
fred xrates Exchange Rates 2026-08-11 2026-08-11
gfd xrates Exchange Rates 2026-08-01 2026-08-01
oecd SNA_TABLE4 PPPs and exchange rates 2026-08-12 2026-08-02
wdi PA.NUS.FCRF Official exchange rate (LCU per USD, period average) 2026-08-11 2026-08-11

COMPILE_TIME

COMPILE_TIME
2026-08-13

Last

TIME_PERIOD Nobs
2026-Q2 49

COU

Code 
REFSERIES_MSIT |>
  left_join(REFSERIES_MSIT_var$COU, by = "COU") |>
  group_by(COU, Cou) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(Cou)),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

France, Italy, Germany, Canada

Code 
REFSERIES_MSIT |>
  filter(COU %in% c("CHE", "DEU", "USA", "FRA", "ESP")) |>
  filter(nchar(TIME_PERIOD) == 4) |>
  year_to_date() |>
  left_join(REFSERIES_MSIT_var$COU, by = "COU") |>
  rename(Location = Cou) |>
  left_join(colors, by = c("Location"  = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Exchange Rate ($1 = ? National Currency)") +
  scale_x_date(breaks = seq(1955, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-100, 200, .5))

France, Germany, Italy, Spain, Greece

Code 
REFSERIES_MSIT |>
  filter(COU %in% c("FRA", "DEU", "ITA", "ESP", "GRC")) |>
  filter(nchar(TIME_PERIOD) == 4) |>
  year_to_date() |>
  left_join(REFSERIES_MSIT_var$COU, by = "COU") |>
  rename(Location = Cou) |>
  left_join(colors, by = c("Location"  = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_5flags +
  theme_minimal() + xlab("") + ylab("Exchange Rate ($1 = ? National Currency)") +
  scale_x_date(breaks = seq(1955, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-100, 200, .5))

France, Italy, Germany, Canada

Code 
REFSERIES_MSIT |>
  filter(COU %in% c("FRA", "ITA", "DEU", "CAN")) |>
  filter(nchar(TIME_PERIOD) == 4) |>
  year_to_date() |>
  left_join(REFSERIES_MSIT_var$COU, by = "COU") |>
  rename(Location = Cou) |>
  left_join(colors, by = c("Location"  = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_4flags +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1955, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-100, 200, .1))

Spain, Greece, Belgium

Code 
REFSERIES_MSIT |>
  filter(COU %in% c("BEL", "GRC", "ESP")) |>
  filter(nchar(TIME_PERIOD) == 4) |>
  year_to_date() |>
  left_join(REFSERIES_MSIT_var$COU, by = "COU") |>
  rename(Location = Cou) |>
  left_join(colors, by = c("Location"  = "country")) |>
  mutate(color = ifelse(COU == "BEL", "#000000", color)) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1955, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-100, 200, .1))

Switzerland, Germany

Code 
REFSERIES_MSIT |>
  filter(COU %in% c("CHE", "DEU")) |>
  filter(nchar(TIME_PERIOD) == 4) |>
  year_to_date() |>
  left_join(REFSERIES_MSIT_var$COU, by = "COU") |>
  rename(Location = Cou) |>
  left_join(colors, by = c("Location"  = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_2flags +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1955, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-100, 200, .1))

Sweden, Norway

Code 
REFSERIES_MSIT |>
  filter(COU %in% c("SWE", "NOR")) |>
  filter(nchar(TIME_PERIOD) == 4) |>
  year_to_date() |>
  left_join(REFSERIES_MSIT_var$COU, by = "COU") |>
  rename(Location = Cou) |>
  left_join(colors, by = c("Location"  = "country")) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_2flags +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1955, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-100, 200, .5))