Modify plots.

bin/data-plots.R

@@ -113,13 +113,18 @@ ggplot(data = d_total %>% filter(Date >= Sys.Date() - years(2)),
     labs(title = paste0("US Amateur Licenses since ", Sys.Date() - years(2)),
          caption = "w1cdn.net",
          color = "Source") +
-    theme(legend.position="bottom")
+    theme(legend.position="bottom") +
+    facet_wrap(~source_name,
+               scales = "free_y",
+               ncol = 1)
 
 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"),
+                                 source_name %in% c("ARRL FCC License Counts",
+                                                    "AE7Q",
+                                                    "HamCall")),
        aes(x = Date,
            y = Total,
            color = source_name)) +
@@ -133,7 +138,10 @@ ggplot(data = d_total %>% filter(Date >= Sys.Date() - months(2),
     labs(title = paste0("US Amateur Licenses since ", Sys.Date() - months(2)),
          caption = "w1cdn.net",
          color = "Source") +
-    theme(legend.position="bottom")
+    theme(legend.position="bottom") +
+    facet_wrap(~source_name,
+               scales = "free_y",
+               ncol = 1)
 
 ggsave("plots/total-over-time-2-months.png", width = 6, height = 4)