Fix up actions plot, add to readme, add a little more data.

bin/data-plots.R

@@ -42,7 +42,8 @@ city <- city_raw %>% mutate(Date = as.Date(Date),
 
 #### License Actions ####
 ae7q_actions <- read.csv("data/ae7q-actions-scraped.csv") %>% 
-                mutate(date = as.Date(date))
+                mutate(date = as.Date(date)) %>% 
+                filter(!is.na(action))
                 
 #### Plots ####
 
@@ -294,11 +295,17 @@ ggplot(data = ae7q_actions,
            y = count,
            color = action)) +
     geom_line() +
-    scale_x_date(date_breaks = "7 days",
-                 date_minor_breaks = "1 days",
+    scale_x_date(date_breaks = "1 month",
+                 date_minor_breaks = "1 week",
                  date_labels = "%Y-%m-%d") +
+    facet_wrap(~action,
+              scales = "free_y") +
     theme_bw() +
     labs(title = "US Amateur License Actions",
+         y = "Count",
+         x = "Date",
          caption = "w1cdn.net",
-         color = "Action") 
+         color = "Action") +
+    guides(color = "none")
 
+ggsave("plots/actions-over-time.png", width = 6, height = 4)