Money

Data - Fred

Author

François Geerolf

Info

Last

date Nobs
2025-10-08 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 1191 2025-10-08 6590815.00
ECBASSETSW Central Bank Assets for Euro Area (11-19 Countries) 1397 2025-10-03 6209218.00
FEDFUNDS Federal Funds Effective Rate 855 2025-09-01 4.22
BOGMBASE Monetary Base: Total 800 2025-08-01 5686.40
BOGMBBM Monetary Base: Reserve Balances 800 2025-08-01 3281.90
BORROW Total Borrowings from the Federal Reserve 1280 2025-08-01 6367.90
M1NS M1 800 2025-08-01 18859.60
M1SL M1 800 2025-08-01 18898.90
M2NS M2 800 2025-08-01 22121.90
M2REAL Real M2 Money Stock 800 2025-08-01 6863.90
M2SL M2 800 2025-08-01 22195.40
MBCURRCIR Monetary Base: Currency in Circulation 800 2025-08-01 2404.50
NONBORRES Reserves of Depository Institutions: Nonborrowed 800 2025-08-01 3275.50
TOTRESNS Reserves of Depository Institutions: Total 800 2025-08-01 3281.90
GDPA Gross Domestic Product 96 2024-01-01 29298.01

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