Money

Data - Fred

Author

François Geerolf

Info

Last

date Nobs
2026-05-27 1

variable

Code 
money %>%
  left_join(variable, by = "variable") %>%
  group_by(variable, Variable) %>%
  arrange(desc(date)) %>%
  summarise(Nobs = n(),
            date = date[1],
            Last = value[1]) %>%
  arrange(desc(date)) %>%
  print_table_conditional()
variable Variable Nobs date Last
WALCL Assets: Total Assets: Total Assets (Less Eliminations from Consolidation): Wednesday Level 1224 2026-05-27 6704383.00
ECBASSETSW Central Bank Assets for Euro Area (11-19 Countries) 1430 2026-05-22 6186508.00
BOGMBASE Monetary Base: Total 808 2026-04-01 5470.40
BOGMBBM Monetary Base: Reserve Balances 808 2026-04-01 3018.00
BORROW Total Borrowings from the Federal Reserve 1288 2026-04-01 5841.40
FEDFUNDS Federal Funds Effective Rate 862 2026-04-01 3.64
M1NS M1 808 2026-04-01 19647.90
M1SL M1 808 2026-04-01 19531.80
M2NS M2 808 2026-04-01 22936.20
M2REAL Real M2 Money Stock 808 2026-04-01 6860.40
M2SL M2 808 2026-04-01 22804.50
MBCURRCIR Monetary Base: Currency in Circulation 808 2026-04-01 2452.40
NONBORRES Reserves of Depository Institutions: Nonborrowed 808 2026-04-01 3012.10
TOTRESNS Reserves of Depository Institutions: Total 808 2026-04-01 3018.00
GDPA Gross Domestic Product 97 2025-01-01 30762.10

Compare balance sheet Fed vs ECB

H4.1

https://www.federalreserve.gov/releases/h41/20250814/h41.pdf

H6

Table 1

Code 
ig_b("fred", "table1-money-stock-measures")

Can we compare size of the balance sheet for both ?

Source, US: https://fred.stlouisfed.org/series/WALCL

Source, ECB: https://fred.stlouisfed.org/series/ECBASSETSW

Code 
money %>%
  filter(variable %in% c("WALCL", "ECBASSETSW"),
         date >= as.Date("2003-01-01")) %>%
  left_join(variable, by = "variable") %>%
  mutate(value = value/1000) %>%
  mutate(Variable = ifelse(variable == "WALCL", "Federal Reserve",
                           "European Central Bank")) %>%
  ggplot + geom_line(aes(x = date, y = value, color = Variable)) +
  xlab("") + ylab("Euros (ECB) or Dollars (Fed)") + theme_minimal() +
  scale_color_manual(values = c("#003399", "#B22234")) +
  scale_x_date(breaks = as.Date(paste0(seq(2003, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.4, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 1000*seq(-100, 90, .5),
                     labels = scales::dollar_format(acc = 1, su = " Bn", pre = ""),
                     limits = c(0, 9000))