Add a bunch of data from W5YI Report, add a facet plot of license classes.

README.md

@@ -23,4 +23,5 @@ how to slice up and caveat data, it will get more organized.
 ![Alt text](plots/total-over-time-y.png)
 ![Alt text](plots/total-over-time-2000.png)
 ![Alt text](plots/class-over-time.png)
+![Alt text](plots/class-over-time-facet.png)
 ![Alt text](plots/states-over-time-freey.png)

bin/data-plots.R

@@ -99,6 +99,27 @@ ggplot(data = d_total_long %>% filter(lclass != "Total"),
 
 ggsave("plots/class-over-time.png", width = 6, height = 4)
 
+##### By license class, facet #####
+ggplot(data = d_total_long %>% filter(lclass != "Total"),
+       aes(x = Date,
+           y = count)) +
+    geom_line() +
+    geom_point(size = 0.3) +
+    facet_wrap(~lclass) +
+    scale_x_date(date_breaks = "10 years",
+                 date_minor_breaks = "1 year",
+                 date_labels = "%Y") +
+    scale_y_continuous(labels = scales::comma) +
+    scale_color_colorblind() +
+    theme_bw() +
+    labs(title = "US Amateur Licenses by Class",
+         y = "Count",
+         color = "Class",
+         caption = "w1cdn.net") +
+    theme(legend.position="bottom")
+
+ggsave("plots/class-over-time-facet.png", width = 15, height = 9)
+
 ##### By license class, stacked #####
 # ggplot(data = d_total_long %>% filter(lclass != "Total"),
 #        aes(x = Date,