source | dataset | .html | .qmd | .RData |
---|---|---|---|---|
ecb | ILM_PUB | [2024-10-08] | https://fgee | olf.com/data |
ecb | TGB | [2024-09-19] | https://fgee | olf.com/data |
Target Balances
Data - ECB
Info
Data on monetary policy
source | dataset | Title | Download | Compile |
---|---|---|---|---|
ecb | ILM_PUB | Internal Liquidity Management - Published series | 2024-09-10 | [2024-10-08] |
bdf | FM | Marché financier, taux | 2024-06-18 | [2024-07-26] |
bdf | MIR | Taux d'intérêt - Zone euro | 2024-07-01 | [2024-07-26] |
bdf | MIR1 | Taux d'intérêt - France | 2024-07-01 | [2024-07-26] |
bis | CBPOL | Policy Rates, Daily | 2024-09-15 | [2024-08-09] |
ecb | BSI | Balance Sheet Items | 2024-09-16 | [2024-10-08] |
ecb | BSI_PUB | Balance Sheet Items - Published series | 2024-10-08 | [2024-10-08] |
ecb | FM | Financial market data | 2024-10-08 | [2024-10-08] |
ecb | ILM | Internal Liquidity Management | 2024-10-08 | [2024-10-08] |
ecb | MIR | MFI Interest Rate Statistics | 2024-10-08 | [2024-06-19] |
ecb | RAI | Risk Assessment Indicators | 2024-10-08 | [2024-10-08] |
ecb | SUP | Supervisory Banking Statistics | 2024-10-08 | [2024-10-08] |
ecb | YC | Financial market data - yield curve | 2024-09-16 | [2024-09-19] |
ecb | YC_PUB | Financial market data - yield curve - Published series | 2024-10-08 | [2024-09-19] |
ecb | liq_daily | Daily Liquidity | 2024-09-11 | [2024-10-08] |
eurostat | ei_mfir_m | Interest rates - monthly data | 2024-09-15 | [2024-09-30] |
eurostat | irt_st_m | Money market interest rates - monthly data | 2024-10-08 | [2024-09-30] |
fred | r | Interest Rates | 2024-09-18 | [2024-09-18] |
oecd | MEI | Main Economic Indicators | 2024-06-30 | [2024-04-16] |
oecd | MEI_FIN | Monthly Monetary and Financial Statistics (MEI) | 2024-05-21 | [2024-09-15] |
LAST_COMPILE
LAST_COMPILE |
---|
2024-10-09 |
Last
TIME_PERIOD | FREQ | Nobs |
---|---|---|
2024-08 | M | 44 |
FREQ
Code
%>%
TGB group_by(FREQ) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
FREQ | Nobs |
---|---|
M | 10560 |
REF_AREA
Code
%>%
TGB left_join(REF_AREA, by = "REF_AREA") %>%
group_by(REF_AREA, Ref_area) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
mutate(Loc = gsub(" ", "-", str_to_lower(Ref_area)),
Loc = paste0('<img src="../../icon/flag/vsmall/', Loc, '.png" alt="Flag">')) %>%
select(Loc, everything()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {
TIME_PER_COLLECT
Code
%>%
TGB group_by(TIME_PER_COLLECT) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
TIME_PER_COLLECT | Nobs |
---|---|
A | 6248 |
E | 4312 |
TIME_PERIOD
Code
%>%
TGB group_by(TIME_PERIOD) %>%
summarise(Nobs = n()) %>%
arrange(desc(TIME_PERIOD)) %>%
print_table_conditional()
Target Balances
Values
Code
%>%
TGB filter(REF_AREA %in% c("FR", "DE", "IT", "GR"),
== "A") %>%
TIME_PER_COLLECT left_join(REF_AREA, by = "REF_AREA") %>%
month_to_date() %>%
filter(!is.na(OBS_VALUE)) %>%
mutate(OBS_VALUE = OBS_VALUE/1000) %>%
left_join(colors, by = c("Ref_area" = "country")) %>%
mutate(color = ifelse(REF_AREA == "U2", color2, color)) %>%
ggplot() + theme_minimal() +
geom_line(aes(x = date, y = OBS_VALUE, color = color)) +
add_flags(4) + scale_color_identity() +
scale_x_date(breaks = seq(1920, 2025, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = seq(-3000, 3000, 100),
labels = dollar_format(accuracy = 1, prefix = "", suffix = " Bn€")) +
ylab("Target Balances") + xlab("")
Table
Code
%>%
TGB filter(TIME_PER_COLLECT == "A",
%in% c("2019-02", "2020-06", "2020-10")) %>%
TIME_PERIOD left_join(REF_AREA, by = "REF_AREA") %>%
mutate(Ref_area = ifelse(REF_AREA == "4F", "Europe", Ref_area),
OBS_VALUE = round(OBS_VALUE)) %>%
select(REF_AREA, Ref_area, TIME_PERIOD, OBS_VALUE) %>%
spread(TIME_PERIOD, OBS_VALUE) %>%
mutate(Change = `2020-10`-`2019-02`) %>%
mutate(Loc = gsub(" ", "-", str_to_lower(Ref_area)),
Loc = paste0('<img src="../../icon/flag/vsmall/', Loc, '.png" alt="Flag">')) %>%
select(Loc, everything()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {