Policy Rates, Daily - CBPOL

Data - BIS

Author

François Geerolf


Last observation: 1 sept. 2026 (N = 14) · août 2026 (N = 22)

First observation: janv. 1945 (N = 6) · 1 janv. 1945 (N = 5)

Last data update: 03 sept. 2026, 22:55

Last compile: 03 sept. 2026, 23:03

Structure

iso3c, REF_AREA, Reference area

Code 
CBPOL |>
  
  left_join(REF_AREA, by = "REF_AREA") |>
  group_by(REF_AREA, `Reference area`) |>
  summarise(Nobs = n(),
            start = first(date),
            end = last(date)) |>
  arrange(-Nobs) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(`Reference area`)),
         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 .}

2 Countries

United States, Euro area (1980-)

1999-

English

Code 
CBPOL |>
  filter(FREQ == "D") |>
  mutate(date = as.Date(date)) |>
  left_join(REF_AREA, by = "REF_AREA") |>
  filter(REF_AREA %in% c("US", "XM"),
         date >= as.Date("1999-01-01")) |>
  mutate(value = value/100,
         `Reference area` = ifelse(REF_AREA == "XM", "Europe", `Reference area`),
         OBS_VALUE = value) |>
  ggplot() + geom_line(aes(x = date, y = value, color = `Reference area`)) +
  theme_minimal() + xlab("") + ylab("") + add_flags +
  scale_x_date(breaks = seq(1940, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-5, 30, 1),
                labels = percent_format(accuracy = 1)) +
  scale_color_manual(values = c("#003399", "#B22234")) +
  theme(legend.position = c(0.8, 0.80),
        legend.title = element_blank())

French

Code 
plot <- CBPOL |>
  filter(FREQ == "D") |>
  mutate(date = as.Date(date)) |>
  left_join(REF_AREA, by = "REF_AREA") |>
  filter(REF_AREA %in% c("US", "XM"),
         date >= as.Date("1999-01-01")) |>
  mutate(value = value/100,
         `Reference area` = ifelse(REF_AREA == "XM", "Europe", `Reference area`),
         Ref_area2 = ifelse(REF_AREA == "XM", "Zone euro", "États-Unis")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Ref_area2)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1999, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-5, 30, 1),
                labels = percent_format(accuracy = 1)) +
  scale_color_manual(values = c( "#B22234", "#003399")) +
  theme(legend.position = c(0.8, 0.80),
        legend.title = element_blank()) +
  geom_rect(data = nber_recessions |>
              filter(Peak > as.Date("1999-01-01")), 
            aes(xmin = Peak, xmax = Trough, ymin = -Inf, ymax = +Inf),
            fill = '#B22234', alpha = 0.1)  +
  geom_rect(data = cepr_recessions |>
              filter(Peak > as.Date("1999-01-01")), 
            aes(xmin = Peak, xmax = Trough, ymin = -Inf, ymax = +Inf), 
            fill = '#003399', alpha = 0.1) +
  labs(caption = "Source: BRI")
plot

Code 
save(plot, file = "CBPOL_files/figure-html/US-XM-1999-francais-1.RData")