Money

Data - Fred

Author

François Geerolf

Info

Last

date Nobs
2026-03-20 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
ECBASSETSW Central Bank Assets for Euro Area (11-19 Countries) 1421 2026-03-20 6155306.00
WALCL Assets: Total Assets: Total Assets (Less Eliminations from Consolidation): Wednesday Level 1214 2026-03-18 6655939.00
BOGMBASE Monetary Base: Total 806 2026-02-01 5388.00
BOGMBBM Monetary Base: Reserve Balances 806 2026-02-01 2956.60
BORROW Total Borrowings from the Federal Reserve 1286 2026-02-01 4647.00
FEDFUNDS Federal Funds Effective Rate 860 2026-02-01 3.64
M1NS M1 806 2026-02-01 19277.10
M1SL M1 806 2026-02-01 19396.90
M2NS M2 806 2026-02-01 22572.20
M2REAL Real M2 Money Stock 806 2026-02-01 6922.20
M2SL M2 806 2026-02-01 22667.30
MBCURRCIR Monetary Base: Currency in Circulation 806 2026-02-01 2431.40
NONBORRES Reserves of Depository Institutions: Nonborrowed 806 2026-02-01 2952.00
TOTRESNS Reserves of Depository Institutions: Total 806 2026-02-01 2956.60
GDPA Gross Domestic Product 97 2025-01-01 30767.09

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))