Update data and plots.

bin/data-plots.R

@@ -322,3 +322,29 @@ ggplot(data = ae7q_actions,
     guides(color = "none")
 
 ggsave("plots/actions-over-time.png", width = 6, height = 4)
+
+##### Actions Over Time, last two years #####
+ggplot(data = ae7q_actions %>% filter(date >= Sys.Date() - years(2)),
+       aes(x = date,
+           y = count,
+           color = action)) +
+    geom_line() +
+    geom_line(data = ae7q_actions %>% filter(date >= Sys.Date() - years(2)),
+              aes(x = date,
+                  y = mean_30),
+              color = "black") +
+    scale_x_date(date_breaks = "3 months",
+                 date_minor_breaks = "1 months",
+                 date_labels = "%Y-%m") +
+    facet_wrap(~action,
+               scales = "free_y") +
+    theme_bw() +
+    labs(title = paste0("US Amateur License Actions since ", Sys.Date() - years(2)),
+         subtitle = "with 30-day rolling mean",
+         y = "Count",
+         x = "Date",
+         caption = "w1cdn.net; source: ae7q.com",
+         color = "Action") +
+    guides(color = "none")
+
+ggsave("plots/actions-over-time-2-years.png", width = 6, height = 4)