us_layoffs.R

library(fredr)
library(tidyverse)

layoffs <- fredr_series_observations("JTSLDL") 

layoffs |> 
  ggplot(aes(x = date, y = value)) +
  geom_line() +
  coord_cartesian(ylim = c(0, 3000)) +
  theme_minimal() +
  labs(title = "Layoffs and discharges",
       subtitle = "Total nonfarm, thousands, monthly, seasonally adjusted",
       caption = "Source: FRED") +
  theme(axis.title = element_blank())