5K Run Intervals Visualization in R with ggplot2

run_intervals.r

library(ggplot2)
library(dplyr)
library(tidyr)
library(viridis)

interval_plot <- function() {
	tibble(
		interval = c("Warm-up", "Work", "Recovery", "Work", "Recovery", "Work", "Recovery", "Work", "Recovery", "Work", "Recovery", "Finish"),
		"2024-10-21" = c(500, 400, 400, 400, 400, 400, 400, 400, 400, 400, 400, 500),
		"2024-12-06" = c(500, 650, 150, 650, 150, 650, 150, 650, 150, 650, 150, 500),
		"2024-12-11" = c(500, 700, 100, 700, 100, 700, 100, 700, 100, 700, 100, 500)
	) |>
	pivot_longer(cols = starts_with("2024"), names_to = "Date", values_to = "Distance") |>
	mutate(
		interval = ordered(interval, levels = c("Warm-up", "Work", "Recovery", "Finish"))
	) |>
	ggplot(aes(x = Distance, y = Date, group = Date, fill = interval)) +
	geom_bar(stat = "identity") +
	scale_fill_viridis(discrete = T, option = "rocket", direction = -1) +
	theme_linedraw()
}