International Financial Statistics, Annual - IFS_A

Data - IMF

Author

Code

IFS_A <- read_parquet("IFS_A.parquet")
CL_INDICATOR_IFS <- read_parquet("CL_INDICATOR_IFS.parquet")
CL_AREA_IFS <- read_parquet("CL_AREA_IFS.parquet")

Info

Last observation: A: 2020-01-01 (N = 210)

First observation: A: 1920-01-01 (N = 3)

Last data update: 01 aoû 2026, 21:41. Last compile: 17 aoû 2026, 23:22

CL_INDICATOR_IFS

Code

IFS_A |>
  left_join(CL_INDICATOR_IFS, by = "INDICATOR") |>
  group_by(INDICATOR, INDICATOR_desc) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

CL_AREA_IFS

Code

IFS_A |>
  left_join(CL_AREA_IFS, by = c("iso2c" = "AREA")) |>
  group_by(iso2c, AREA_desc) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Exchange Rates

Ex 1A: ENDE_XDC_USD_RATE - Exchange Rates

Code

IFS_A |>
  filter(INDICATOR == "ENDE_XDC_USD_RATE",
         iso2c %in% c("GB", "FR", "DE")) |>
  left_join(CL_AREA_IFS, by = c("iso2c" = "AREA")) |>
  left_join(colors, by = c("AREA_desc" = "country")) |>
  ggplot() + scale_color_identity() + add_flags +
  geom_line(aes(x = date, y = value, color = color)) +
  theme_minimal() + xlab("") + ylab("Exchange Rate ($1 = ?National Currency)") +
  scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 10, 1),
                     labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "../$")) +
  theme(legend.position = c(0.8, 0.80),
        legend.title = element_blank())

Ex 1B: EREER_ULC_IX - REER based on ULC

Code

IFS_A |>
  filter(INDICATOR == "EREER_ULC_IX",
         iso2c %in% c("GB", "FR", "DE", "US")) |>
  left_join(CL_AREA_IFS, by = c("iso2c" = "AREA")) |>
    left_join(colors, by = c("AREA_desc" = "country")) |>
ggplot() + scale_color_identity() + add_flags +
  geom_line(aes(x = date, y = value, color = color)) +
  theme_minimal() + xlab("") + ylab("REER based on ULC") +
  scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 200, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Ex 1C: EREER_IX - Exchange Rates, REER based on CPI

Code

IFS_A |>
  filter(INDICATOR == "EREER_IX",
         iso2c %in% c("GB", "FR", "DE", "US")) |>
  left_join(CL_AREA_IFS, by = c("iso2c" = "AREA")) |>
    left_join(colors, by = c("AREA_desc" = "country")) |>
ggplot() + scale_color_identity() + add_flags +
  geom_line(aes(x = date, y = value, color = color)) +
  theme_minimal() + xlab("") + ylab("REER based on CPI") +
  scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 200, 10),
                     labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.80),
        legend.title = element_blank())

Ex 2: Financial Market Prices, Equities, Index - FPE_IX

Code

IFS_A |>
  filter(INDICATOR == "FPE_IX",
         iso2c %in% c("GB", "FR", "DE", "US")) |>
  left_join(CL_AREA_IFS, by = c("iso2c" = "AREA")) |>
    left_join(colors, by = c("AREA_desc" = "country")) |>
ggplot() + scale_color_identity() + add_flags +
  geom_line(aes(x = date, y = value, color = color)) +
  theme_minimal() + xlab("") + ylab("Market Values") +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = c(seq(0, 5, 1), seq(0, 50, 10), seq(0, 200, 50)),
                labels = dollar_format(accuracy = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.20),
        legend.title = element_blank())