Consumer Price Index - cpi_us

Data - GFD

Author

François Geerolf

Code 
cpi_us <- read_parquet("cpi_us.parquet")
nber_recessions <- read_parquet(here::here("data", "us", "nber_recessions.parquet"))

Info

# **Last observation**: 2019-02-28 (N = 1)
# 
# **First observation**: 1789-12-31 (N = 1)
# 
# **Last data update**: 01 aoû 2026, 21:29. **Last compile**: 15 aoû 2026, 14:57

1920-1980

(ref:us-cpi-1920-1980) U.S. Price Level 1920-1980.

Code 
cpi_us |>
  ggplot() + 
  geom_line(aes(x = date, y = value)) + 
  ylab("Price Level (CPI)") + xlab("") +
  geom_rect(data = nber_recessions, 
            aes(xmin = Peak, xmax = Trough, ymin = -Inf, ymax = +Inf), 
            fill = 'grey', alpha = 0.5) + 
  scale_y_continuous(breaks = seq(0, 75, 10),
                     limits = c(0, 75)) + 
  scale_x_date(breaks = as.Date(nber_recessions$Peak),
               labels = date_format("%Y"),
               limits = c(as.Date("1920-01-01"), as.Date("1980-01-01"))) + 
  theme_minimal() + 
  geom_vline(xintercept = as.Date("1971-08-15"), linetype = "dashed", color = viridis(3)[2])

(ref:us-cpi-1920-1980)

1920-2019

(ref:us-cpi-1920-2019) U.S. Price Level 1920-2019.

Code 
cpi_us |>
  ggplot() + 
  geom_line(aes(x = date, y = value)) + 
  ylab("Price Level") + xlab("") +
  geom_rect(data = nber_recessions, 
            aes(xmin = Peak, xmax = Trough, ymin = -Inf, ymax = +Inf), 
            fill = 'grey', alpha = 0.5) + 
  scale_y_continuous(breaks = seq(0, 250, 25),
                     limits = c(0, 250)) + 
  scale_x_date(breaks = as.Date(nber_recessions$Peak),
               labels = date_format("%Y"),
               limits = c(as.Date("1920-01-01"), as.Date("2019-01-01"))) + 
  theme_minimal() + 
  geom_vline(xintercept = as.Date("1971-08-15"), linetype = "dashed", color = viridis(3)[2])

(ref:us-cpi-1920-2019)

1920-2019 (Log Scale)

(ref:us-cpi-log-1920-2019) U.S. Price Level 1920-2019 (Log Scale).

Code 
cpi_us |>
  ggplot() + geom_line(aes(x = date, y = value)) + 
  xlab("") + ylab("Price Level (Log Scale)") +
  geom_rect(data = nber_recessions, 
            aes(xmin = Peak, xmax = Trough, ymin = 0, ymax = +Inf), 
            fill = 'grey', alpha = 0.5) + 
  scale_y_log10(breaks = 20*2^seq(-9, 9, 1),
                limits = c(10, 250)) + 
  scale_x_date(breaks = as.Date(nber_recessions$Peak),
               labels = date_format("%Y"),
               limits = c(as.Date("1920-01-01"), as.Date("2019-01-01"))) + 
  theme_minimal() + 
  geom_vline(xintercept = as.Date("1971-08-15"), linetype = "dashed", color = viridis(3)[2])

(ref:us-cpi-log-1920-2019)