Policy Rates, Daily

Data - BIS

Author

Info

source	dataset	.html	.RData
bis	CBPOL	2024-07-01	2024-08-09

Data on interest rates

source	dataset	.html	.RData
bdf	FM	2024-07-26	2024-06-18
bdf	MIR	2024-07-26	2024-07-01
bdf	MIR1	2024-07-26	2024-07-01
bis	CBPOL_D	2024-08-09	2024-05-10
bis	CBPOL_M	2024-08-09	2024-04-19
ecb	FM	2024-07-01	2024-07-26
ecb	MIR	2024-06-19	2024-07-26
eurostat	ei_mfir_m	2024-08-09	2024-07-24
eurostat	irt_lt_mcby_d	2024-08-09	2024-06-08
eurostat	irt_st_m	2024-08-09	2024-07-03
fred	r	2024-08-09	2024-08-09
oecd	MEI	2024-04-16	2024-06-30
oecd	MEI_FIN	2024-07-01	2024-05-21
wdi	FR.INR.RINR	2024-01-06	2024-08-09

LAST_COMPILE

LAST_COMPILE
2024-08-09

Last

TIME_PERIOD	Nobs
2024-08-06	12

iso3c, REF_AREA, Ref_area

Code

CBPOL %>%
  
  left_join(REF_AREA, by = "REF_AREA") %>%
  group_by(REF_AREA, Ref_area) %>%
  summarise(Nobs = n(),
            start = first(TIME_PERIOD),
            end = last(TIME_PERIOD)) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Ref_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 .}

FREQ, Freq

Code

CBPOL %>%
  left_join(FREQ, by = "FREQ") %>%
  group_by(FREQ, Freq) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

FREQ	Freq	Nobs
D	Daily	636700
M	Monthly	22685

2 Countries

United States, Euro area (1980-)

1999-

English

Code

CBPOL %>%
  month_to_date %>%
  left_join(REF_AREA, by = "REF_AREA") %>%
  filter(REF_AREA %in% c("US", "XM"),
         date >= as.Date("1999-01-01"),
         FREQ == "D") %>%
  mutate(OBS_VALUE = OBS_VALUE/100,
         Ref_area = ifelse(REF_AREA == "XM", "Europe", Ref_area)) %>%
  ggplot(.) + geom_line(aes(x = date, y = OBS_VALUE, color = Ref_area)) +
  theme_minimal() + xlab("") + ylab("") + add_2flags +
  scale_x_date(breaks = seq(1940, 2026, 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 %>%
  month_to_date %>%
  left_join(REF_AREA, by = "REF_AREA") %>%
  filter(REF_AREA %in% c("US", "XM"),
         date >= as.Date("1999-01-01"),
         FREQ == "D") %>%
  mutate(OBS_VALUE = OBS_VALUE/100,
         Ref_area = ifelse(REF_AREA == "XM", "Europe", Ref_area),
         Ref_area2 = ifelse(REF_AREA == "XM", "Zone euro", "États-Unis")) %>%
  ggplot(.) + geom_line(aes(x = date, y = OBS_VALUE, color = Ref_area2)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1999, 2026, 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")