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 #####

data/us ham radio licenses over time.csv

@@ -3233,3 +3233,11 @@ Date,State/Territory,Novice,Tech,Tech-Plus,General,Advanced,Extra,Total,Tech_and
 1990-12-31,TOTAL,87333,,,124979,105418,51948,494307,122344,QST,"QST 2024-07, p. 98"
 1980-12-31,TOTAL,82479,,,121561,96509,36782,432576,92620,QST,"QST 2024-07, p. 98"
 1970-12-31,TOTAL,24903,,,97280,58316,13391,284981,87441,QST,"QST 2024-07, p. 98"
+1937-11-30,TOTAL,,,,,,,46850,,QST,"QST 1987-11, p. 69"
+1961-09-01,TOTAL,,,,,,,231000,,RAC,"Radio Amateur Callbook Fall (September 1) 1961, cover"
+1969-06-01,TOTAL,,,,,,,287063,,RAC,"Radio Amateur Callbook Summer (June 1) 1969, cover"
+1960-12-01,TOTAL,,,,,,,225000,,RAC,"Radio Amateur Callbook Winter (December 1) 1960, cover"
+1971-12-01,TOTAL,,,,,,,286444,,RAC,"Radio Amateur Callbook Winter (December 1) 1971, cover"
+1980-12-01,TOTAL,,,,,,,393353,,RAC,"Radio Amateur Callbook Winter (December 1) 1980, cover"
+1989-12-01,TOTAL,,,,,,,508956,,RAC,"Radio Amateur Callbook Winter (December 1) 1989, cover"
+1997-01-01,TOTAL,,,,,,,715462,,RAC,"Radio Amateur Callbook 1997, p. 3A"