Money - money

Data - Fred

Author

François Geerolf

Last observation: 21 oct. 2026 (N = 1)

First observation: 1 janv. 1929 (N = 1)

Last data update: 25 oct. 2026, 22:44

Last compile: 25 oct. 2026, 22:49

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 1245 2026-10-21 6753604.00
ECBASSETSW Central Bank Assets for Euro Area (11-19 Countries) 1451 2026-10-16 5935346.00
FEDFUNDS Federal Funds Effective Rate 867 2026-09-01 3.75
BOGMBASE Monetary Base: Total 812 2026-08-01 5411.60
BOGMBBM Monetary Base: Reserve Balances 812 2026-08-01 2936.00
BORROW Total Borrowings from the Federal Reserve 1292 2026-08-01 5501.10
M1NS M1 812 2026-08-01 19955.90
M1SL M1 812 2026-08-01 19991.10
M2NS M2 812 2026-08-01 23284.30
M2REAL Real M2 Money Stock 812 2026-08-01 6986.10
M2SL M2 812 2026-08-01 23342.80
MBCURRCIR Monetary Base: Currency in Circulation 812 2026-08-01 2475.60
NONBORRES Reserves of Depository Institutions: Nonborrowed 812 2026-08-01 2930.50
TOTRESNS Reserves of Depository Institutions: Total 812 2026-08-01 2936.00
GDPA Gross Domestic Product 97 2025-01-01 30861.29

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