cycle plot

R code of the ggplot2 example

library(ggplot2)
library(dplyr)
library(HistData)

## One small series per month, 1812 to 1854, side by side; the horizontal
## line is that month's mean over the 43 years.
months <- Prostitutes |>
  mutate(month = factor(month.abb[mon], levels = month.abb),
         x = mon + (Year - 1812) / (1854 - 1812) * 0.8 - 0.4)
means <- months |>
  group_by(month, mon) |>
  summarise(count = mean(count), .groups = "drop")

p <- ggplot(months, aes(x = x, y = count, group = month)) +
  geom_line(linewidth = 0.35, colour = "#9b2367") +
  geom_segment(data = means, aes(x = mon - 0.4, xend = mon + 0.4, y = count, yend = count),
               colour = "#535353", linewidth = 0.6, inherit.aes = FALSE) +
  scale_x_continuous(breaks = 1:12, labels = month.abb, expand = expansion(add = 0.2)) +
  scale_y_continuous(labels = lex_number) +
  labs(title = "Over 43 years, the number of registered prostitutes\nrose the same way in every month",
       subtitle = "Paris: one series per month, each running from 1812 to 1854; gray line: that month's mean",
       x = NULL, y = "Women registered",
       caption = "Data: Parent-Duchâtelet 1857, via the HistData R package") +
  theme_lex_viz(grid = "y", arrows = "y")