Skip to content

Instantly share code, notes, and snippets.

@gshotwell
Created September 26, 2022 16:01
Show Gist options
  • Star 3 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gshotwell/b19ef520b6d56f61a830fabb3454965b to your computer and use it in GitHub Desktop.
Save gshotwell/b19ef520b6d56f61a830fabb3454965b to your computer and use it in GitHub Desktop.
Time series with breaks
library(tidyverse)
library(lubridate)
df <- tibble(
dist1 = sort(rnorm(100, 5, 2)),
dist2 = sort(rnorm(100, 8, 3)),
dist4 = sort(rnorm(100, 15, 1)),
date = seq.Date(from = ymd("2022-01-01"), ymd("2022-04-10"), by = "day")
)
df <- pivot_longer(df, cols = -date, names_to = "dist_name", values_to = "value")
fancy_ts <- function(df, val, group) {
labs <- df |>
group_by({{group}}) |>
summarize(breaks = max({{val}}))
ggplot(df,
aes(
x = date,
y = {{val}},
group = {{group}},
color = {{group}})) +
geom_path() +
scale_y_continuous(breaks = labs$breaks, minor_breaks = NULL) +
theme_minimal()
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment