Stub out AE7Q actions work.

bin/data-plots.R

@@ -39,6 +39,10 @@ d_state_total_long <- d %>% filter(State.Territory != "TOTAL") %>%
 city_raw <- read.csv("data/us cities ham radio licenses over time.csv")
 city <- city_raw %>% mutate(Date = as.Date(Date),
                             city_label = paste0(City, ", ", State))
+
+#### License Actions ####
+ae7q_actions <- read.csv("data/ae7q-actions-scraped.csv") %>% 
+                mutate(date = as.Date(date))
                 
 #### Plots ####
 
@@ -283,3 +287,18 @@ ggplot(data = city,
     theme(legend.position="bottom")
 
 ggsave("plots/cities-over-time-freey.png", width = 15, height = 9)
+
+##### Actions Over Time #####
+ggplot(data = ae7q_actions,
+       aes(x = date,
+           y = count,
+           color = action)) +
+    geom_line() +
+    scale_x_date(date_breaks = "7 days",
+                 date_minor_breaks = "1 days",
+                 date_labels = "%Y-%m-%d") +
+    theme_bw() +
+    labs(title = "US Amateur License Actions",
+         caption = "w1cdn.net",
+         color = "Action") 
+