Change colours around

scratch.R

@@ -90,8 +90,8 @@ work_simp %>%
     total = sum(ifelse(total < 0, 0, total)), .groups="drop"
   ) -> work_to
 
-tencols <-  c("#6a3d9a", "#1f78b4", "#b2df8a", "#33a02c", "#fb9a99", 
-              "#e31a1c", "#fdbf6f", "#ff7f00", "#cab2d6", "#a6cee3")
+tencols <-  c("#fb9a99", "#e31a1c", "#1f78b4", "#6a3d9a", "#b2df8a", 
+              "#33a02c", "#fdbf6f", "#ff7f00", "#cab2d6", "#a6cee3")
 tencols[which.max(work_from[1, 5:14])]
 
 

viz/extras.R

@@ -132,8 +132,8 @@ again-data-visualisation-competition", "data visualisation competition",
     "selected, colouring is according to commutes to or from all ",
     "localities."),
   h4("FAQ"),
-  shiny::tags$blockquote("Why are so many areas purple (for 'works at ",
-                         "home')?"),
+  shiny::tags$blockquote("Why are so many areas marked as 'works at ",
+                         "home'?"),
   p("Working from home includes working from your kitchen table, ",
     "but also farming. Anyone who is employed but does not commute ",
     "is included in this category."),