Money - money

Data - Fred

Info

Last observation: 2026-08-12 (N = 1)

First observation: 1929-01-01 (N = 1)

Last data update: 16 aoû 2026, 19:47. Last compile: 17 aoû 2026, 22:30

variable

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	1235	2026-08-12	6759955.00
ECBASSETSW	Central Bank Assets for Euro Area (11-19 Countries)	1441	2026-08-07	5923023.00
FEDFUNDS	Federal Funds Effective Rate	865	2026-07-01	3.63
BOGMBASE	Monetary Base: Total	810	2026-06-01	5488.40
BOGMBBM	Monetary Base: Reserve Balances	810	2026-06-01	3018.80
BORROW	Total Borrowings from the Federal Reserve	1290	2026-06-01	6841.70
M1NS	M1	810	2026-06-01	19821.30
M1SL	M1	810	2026-06-01	19831.50
M2NS	M2	810	2026-06-01	23124.50
M2REAL	Real M2 Money Stock	810	2026-06-01	6962.50
M2SL	M2	810	2026-06-01	23155.20
MBCURRCIR	Monetary Base: Currency in Circulation	810	2026-06-01	2469.60
NONBORRES	Reserves of Depository Institutions: Nonborrowed	810	2026-06-01	3012.00
TOTRESNS	Reserves of Depository Institutions: Total	810	2026-06-01	3018.80
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

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

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