create a third rsq map for both helo and fixed wing

RWParsons · Jun 15, 2024 · a075ef2 · a075ef2
1 parent cc2df63
commit a075ef2
Show file tree

Hide file tree

Showing 3 changed files with 26 additions and 3 deletions.
diff --git a/R/vis-make-maps.R b/R/vis-make-maps.R
@@ -50,7 +50,30 @@ make_rsq_maps <- function(shapes, utils) {
   helicopter_file_path <- file.path(utils$out_dir, "rsq-helicopter_locations.jpeg")
   ggsave(plot = p, helicopter_file_path, height = utils$out_height, width = utils$out_width, dpi = utils$out_dpi)
 
-  c(fixed_wing_file_path, helicopter_file_path)
+  p <- ggplot() +
+    geom_sf(data = shapes$qld_boundary, fill = utils$qld_fill, col = "transparent") +
+    geom_text(
+      data = filter(shapes$rsq_locations, method == "helicopter"),
+      aes(x = x, y = y, label = emoji("helicopter")),
+      size = utils$out_dpi / 300 * 15,
+      vjust = 0,
+      family = "EmojiOne"
+    ) + 
+    geom_text(
+      data = filter(shapes$rsq_locations, method == "plane"),
+      aes(x = x, y = y, label = fontawesome("fa-plane")),
+      size = utils$out_dpi / 300 * 15,
+      family = "fontawesome-webfont"
+    )
+
+  p <- utils$add_common_plot_features(p, add_dots_for_cities = FALSE)
+
+  helicopter_and_fixed_wing_file_path <- file.path(utils$out_dir, "rsq-helicopter_and_fixed-wing_locations.jpeg")
+  ggsave(plot = p, helicopter_and_fixed_wing_file_path, height = utils$out_height, width = utils$out_width, dpi = utils$out_dpi)
+
+
+
+  c(fixed_wing_file_path, helicopter_file_path, helicopter_and_fixed_wing_file_path)
 }
 
 make_major_regional_services_map <- function(shapes, utils) {

diff --git a/_targets/meta/meta b/_targets/meta/meta
@@ -134,7 +134,7 @@ make_major_regional_services_map|function|dba0946fecf37e25|||||||||||||||
 make_palette_table|function|c9c9c814d15db31e|||||||||||||||
 make_qas_map|function|f83dbbad1ea764fd|||||||||||||||
 make_rehab_maps|function|2c5fcd4fff948293|||||||||||||||
-make_rsq_maps|function|c3cd278b05efc527|||||||||||||||
+make_rsq_maps|function|515a544e867bce7a|||||||||||||||
 make_seifas_df|function|a173722530b35302|||||||||||||||
 make_towns_map|function|e565254c8e30c0cb|||||||||||||||
 output_dir|object|84f147b697db2e10|||||||||||||||
@@ -159,7 +159,7 @@ remoteness_files_files|stem|f4657ed37a25cf40|f5ca3075331905f3|ef46db3751d8e999|-
 remove_empty_polygons|function|6046100d98ed864e|||||||||||||||
 rename_travel_time_df|function|82572c667aa9ceb3|||||||||||||||
 rsq_locations_file|stem|72685425b2fb4cb6|7c2c0922575a2b28|ef46db3751d8e999|-3892719|data/inputs-for-visualisations/rsq_locations.csv|t19221.9976706623s|17fd65357607abf9|576|file|local|vector|||1.297||
-rsq_maps|stem|640a4e2523c1fca4|765ca2014d1ef285|325ed004b26a133a|1296509518||t19889.2026049245s|c303d0aa7a9c897f|156|rds|local|vector|||1.219||
+rsq_maps|stem|39134de7027ce028|765ca2014d1ef285|6347a1a61bc35134|1296509518||t19889.2452751311s|ce9b4a225e799bab|165|rds|local|vector|||2.687||
 save_app_markers|function|c936c4cb9c53573d|||||||||||||||
 save_app_palette|function|5a64a397d94773ca|||||||||||||||
 save_app_scale_fxs|function|4f0852cf0addbd8c|||||||||||||||

diff --git a/output/figures/rsq-helicopter_and_fixed-wing_locations.jpeg b/output/figures/rsq-helicopter_and_fixed-wing_locations.jpeg