Update plot scaling.

bin/data-plots.R

@@ -333,7 +333,7 @@ ggplot(data = ae7q_actions %>% filter(date >= Sys.Date() - years(2)),
               aes(x = date,
                   y = mean_30),
               color = "black") +
-    scale_x_date(date_breaks = "3 months",
+    scale_x_date(date_breaks = "6 months",
                  date_minor_breaks = "1 months",
                  date_labels = "%Y-%m") +
     facet_wrap(~action,
@@ -347,4 +347,4 @@ ggplot(data = ae7q_actions %>% filter(date >= Sys.Date() - years(2)),
          color = "Action") +
     guides(color = "none")
 
-ggsave("plots/actions-over-time-2-years.png", width = 6, height = 4)
+ggsave("plots/actions-over-time-2-years.png", width = 9, height = 6)