Skip to content

Instantly share code, notes, and snippets.

@MattCowgill
Created January 23, 2024 22:28
Show Gist options
  • Save MattCowgill/105bf0b5b9f356f52608b6ddc33d85da to your computer and use it in GitHub Desktop.
Save MattCowgill/105bf0b5b9f356f52608b6ddc33d85da to your computer and use it in GitHub Desktop.
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")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment