Add two-month plot.

README.md

@@ -34,6 +34,7 @@ If you want to help, here are some ways:
 ![Alt text](plots/total-over-time-y.png)
 ![Alt text](plots/total-over-time-2000.png)
 ![Alt text](plots/total-over-time-2-years.png)
+![Alt text](plots/total-over-time-2-months.png)
 ![Alt text](plots/class-over-time.png)
 ![Alt text](plots/class-over-time-2-years.png)
 ![Alt text](plots/class-over-time-facet.png)

bin/data-plots.R

@@ -104,6 +104,26 @@ ggplot(data = d_total %>% filter(Date >= Sys.Date() - years(2)),
 
 ggsave("plots/total-over-time-2-years.png", width = 6, height = 4)
 
+##### ARRL Total over time, 2 months #####
+ggplot(data = d_total %>% filter(Date >= Sys.Date() - months(2),
+                                 source_name == "ARRL FCC License Counts"),
+       aes(x = Date,
+           y = Total,
+           color = source_name)) +
+    geom_line() +
+    geom_point(size = 0.3) +
+    scale_x_date(date_breaks = "7 days",
+                 date_minor_breaks = "1 days",
+                 date_labels = "%Y-%m-%d") +
+    scale_y_continuous(labels = scales::comma) +
+    theme_bw() +
+    labs(title = paste0("US Amateur Licenses since ", Sys.Date() - months(2)),
+         caption = "w1cdn.net",
+         color = "Source") +
+    theme(legend.position="bottom")
+
+ggsave("plots/total-over-time-2-months.png", width = 6, height = 4)
+
 ##### By license class #####
 ggplot(data = d_total_long %>% filter(lclass != "Total"),
        aes(x = Date,