diff --git a/README.md b/README.md index 288ab3b..6210a92 100644 --- a/README.md +++ b/README.md @@ -34,6 +34,7 @@ If you want to help, here are some ways: ![Alt text](plots/total-over-time-y.png) ![Alt text](plots/total-over-time-2000.png) ![Alt text](plots/total-over-time-2-years.png) +![Alt text](plots/total-over-time-2-months.png) ![Alt text](plots/class-over-time.png) ![Alt text](plots/class-over-time-2-years.png) ![Alt text](plots/class-over-time-facet.png) diff --git a/bin/data-plots.R b/bin/data-plots.R index 795f02e..a9f7221 100644 --- a/bin/data-plots.R +++ b/bin/data-plots.R @@ -104,6 +104,26 @@ ggplot(data = d_total %>% filter(Date >= Sys.Date() - years(2)), 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"), + aes(x = Date, + y = Total, + color = source_name)) + + geom_line() + + geom_point(size = 0.3) + + scale_x_date(date_breaks = "7 days", + date_minor_breaks = "1 days", + date_labels = "%Y-%m-%d") + + scale_y_continuous(labels = scales::comma) + + theme_bw() + + labs(title = paste0("US Amateur Licenses since ", Sys.Date() - months(2)), + caption = "w1cdn.net", + color = "Source") + + theme(legend.position="bottom") + +ggsave("plots/total-over-time-2-months.png", width = 6, height = 4) + ##### By license class ##### ggplot(data = d_total_long %>% filter(lclass != "Total"), aes(x = Date, diff --git a/plots/total-over-time-2-months.png b/plots/total-over-time-2-months.png new file mode 100644 index 0000000..6a3e0f9 Binary files /dev/null and b/plots/total-over-time-2-months.png differ