W1CDN/ham-radio-licenses
1
0
Fork 0
Code Issues 132 Pull Requests Packages Projects Releases Wiki Activity

Add more data, try to add source info to plots.

Browse Source
This commit is contained in:
mattbk
2024-01-23 09:43:48 -06:00
parent 0b7e9db564
commit 3faee40a32
13 changed files with 117 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
bin/data-plots.R
View File

@ -108,7 +108,8 @@ ggsave("plots/total-over-time-2-years.png", width = 6, height = 4)
ggplot(data = d_total_long %>% filter(lclass != "Total"),
aes(x = Date,
y = count,
color = fct_reorder2(lclass, Date, count))) +
color = fct_reorder2(lclass, Date, count),
linetype = source_name)) +
geom_line() +
geom_point(size = 0.3) +
scale_x_date(date_breaks = "10 years",
@ -123,14 +124,15 @@ ggplot(data = d_total_long %>% filter(lclass != "Total"),
caption = "w1cdn.net") +
theme(legend.position="bottom")
ggsave("plots/class-over-time.png", width = 6, height = 4)
ggsave("plots/class-over-time.png", width = 12, height = 8)
##### By license class, 2 years #####
ggplot(data = d_total_long %>% filter(lclass != "Total",
Date >= Sys.Date() - years(2)),
aes(x = Date,
y = count,
color = fct_reorder2(lclass, Date, count))) +
color = fct_reorder2(lclass, Date, count),
linetype = source_name)) +
geom_line() +
geom_point(size = 0.3) +
scale_x_date(date_breaks = "3 months",
@ -150,7 +152,8 @@ ggsave("plots/class-over-time-2-years.png", width = 6, height = 4)
##### By license class, facet #####
ggplot(data = d_total_long %>% filter(lclass != "Total"),
aes(x = Date,
y = count)) +
y = count,
color = source_name)) +
geom_line() +
geom_point(size = 0.3) +
facet_wrap(~lclass) +