data(CholeraDeaths1849)
str(CholeraDeaths1849)
# Reproduce Farr's (1852) plate 2
library(ggplot2)
CholeraDeaths1849 |>
ggplot(aes(x = date, y = deaths, colour = cause_of_death)) +
geom_line(linewidth = 1.2) +
theme_bw(base_size = 14) +
theme(legend.position = "top")
Run the code above in your browser using DataLab