Policy Rates, Daily
Data - BIS
Info
Data on interest rates
source | dataset | .html | .RData |
---|---|---|---|
bdf | FM | 2024-12-16 | 2024-12-16 |
bdf | MIR | 2024-07-26 | 2024-07-01 |
bdf | MIR1 | 2024-11-29 | 2024-12-09 |
bis | CBPOL_D | 2024-12-19 | 2024-05-10 |
bis | CBPOL_M | 2024-12-16 | 2024-04-19 |
ecb | FM | 2024-12-16 | 2024-12-16 |
ecb | MIR | 2024-06-19 | 2024-12-16 |
eurostat | ei_mfir_m | 2024-12-16 | 2024-12-16 |
eurostat | irt_lt_mcby_d | 2024-12-16 | 2024-12-16 |
eurostat | irt_st_m | 2024-12-16 | 2024-12-16 |
fred | r | 2024-12-16 | 2024-12-16 |
oecd | MEI | 2024-04-16 | 2024-06-30 |
oecd | MEI_FIN | 2024-09-15 | 2024-12-14 |
wdi | FR.INR.RINR | 2024-12-16 | 2024-12-16 |
LAST_COMPILE
LAST_COMPILE |
---|
2024-12-19 |
Last
TIME_PERIOD | Nobs |
---|---|
2024-12-17 | 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 | 641263 |
M | Monthly | 22840 |
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"),
>= as.Date("1999-01-01"),
date == "D") %>%
FREQ 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
<- CBPOL %>%
plot %>%
month_to_date left_join(REF_AREA, by = "REF_AREA") %>%
filter(REF_AREA %in% c("US", "XM"),
>= as.Date("1999-01-01"),
date == "D") %>%
FREQ 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")