Skip to content

Instantly share code, notes, and snippets.

@MattCowgill
Created January 23, 2024 22:28
Show Gist options
  • Save MattCowgill/45494e2626a7480b428e18a0ffd2f4c9 to your computer and use it in GitHub Desktop.
Save MattCowgill/45494e2626a7480b428e18a0ffd2f4c9 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") +
theme(axis.title = element_blank())
@MattCowgill
Copy link
Author

image

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment