Add RAC data by hand from Internet Archive.

bin/data-plots.R

@@ -25,7 +25,9 @@ d_total <- d %>% filter(State.Territory == "TOTAL")
 d_total_long <- d_total %>% 
                 pivot_longer(cols = 3:8,
                              names_to = "lclass",
-                             values_to = "count") 
+                             values_to = "count") %>% 
+                # only keep rows with data so plots look right
+                filter(!is.na(count))
                 
 #### Plots ####
 ##### Total over time #####