Exchange rates - REFSERIES_MSIT

Data - OECD

Author

François Geerolf

Last observation: Q2 2026 (N = 49)

First observation: 1957 (N = 27)

Last data update: 30 juil. 2026, 16:38

Last compile: 03 sept. 2026, 00:02

Structure

COMPILE_TIME

COMPILE_TIME
2026-09-03

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) |>
  add_flag_color("Location") |>
  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) |>
  add_flag_color("Location") |>
  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) |>
  add_flag_color("Location") |>
  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) |>
  add_flag_color("Location") |>
  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) |>
  add_flag_color("Location") |>
  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) |>
  add_flag_color("Location") |>
  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))