add regional avg

R/HT_00_setupFncns.R

@@ -509,21 +509,52 @@ ur_pairGrid = function(df,
                        file_name = 'plot.pdf',
                        width_plot = 7, height_plot = 10){
   
-  ggplot(df, aes(x = avg, y = region,
-                 fill = avg, shape = urban)) +
-    geom_segment(aes(x = lb, xend = ub, y = region, yend = region), alpha = 0.2) +
+  p = ggplot(df, aes(x = avg, y = region,
+                     fill = avg, shape = urban)) +
+    geom_segment(aes(x = lb, xend = ub, y = region, yend = region), 
+                 size = 5,
+                 colour = grey75K, 
+                 alpha = 0.1) +
+    geom_segment(aes(x = avg, xend = lagged, y = region, yend = region), 
+                 size = 0.5,
+                 alpha = 1,
+                 colour = grey75K,
+                 data = df %>% filter(urban == 'urban')) +
     geom_point(size = 4, colour = grey90K) +
+    # -- Region average --
+    geom_point(aes(x = region_avg),
+               size = 2.5, 
+               colour = grey90K, fill = grey75K,
+               shape = 21,
+               data = df %>% filter(urban == 'urban')) +
     geom_text(aes(label = N), 
-              nudge_y = 0.2,
+              nudge_x = 0.05,
+              family = 'Lato Light',
               size = 2.5, colour = grey90K) +
+    geom_text(aes(label = llamar::percent(avg, ndigits = 0),
+                  colour = avg), 
+              nudge_y = 0.2,
+              family = 'Lato Light',
+              size = 3.5) +
+    geom_text(aes(label = llamar::percent(region_avg, ndigits = 0),
+                  x = region_avg), 
+              nudge_y = 0.2,
+              family = 'Lato Light',
+              colour = grey75K,
+              size = 3.5,
+              data = df %>% filter(urban == 'urban')) +
     scale_shape_manual(values = c('urban' = 22, 'rural' = 21)) +
     scale_fill_gradientn(colours = brewer.pal(9, fill_scale), 
                          limits = fill_limits) + 
+    scale_colour_gradientn(colours = brewer.pal(9, fill_scale), 
+                           limits = fill_limits) + 
+    scale_x_continuous(labels = scales::percent) +
     theme_xgrid()
   
   # -- Save the main plot --
   if (savePlots){
     ggsave(file_name, 
+           plot = p,
            width = width_plot, height = height_plot,
            bg = 'transparent',
            paper = 'special',
@@ -532,5 +563,7 @@ ur_pairGrid = function(df,
            compress = FALSE,
            dpi = 300)
   } 
+  
+  return(p)
 }
 

R/HT_04_improvedToilets.R

@@ -210,7 +210,8 @@ plotMap(haiti_polygons,
         fill_scale = colour_toilet,
         fill_limits = colour_limits, 
         plot_base = TRUE,
-        exportPlot = FALSE)
+        exportPlot = TRUE,
+        fileName = '~/Creative Cloud Files/MAV/Projects/Haiti_WASH-PAD_2016-09/exported_R/HTI_imprtoilet_adm2.pdf')
 
 # -- dot plot --
 pairGrid(toilet_admin2, 
@@ -248,9 +249,13 @@ urb_rural_toilet = urb_rural_toilet %>%
   arrange(region,urban) %>% 
   mutate(lagged = lag(avg))
 
+toilet_avg = toilet_admin1_PaP %>% select(region = region_name, region_avg = avg)
+
+urb_rural_toilet = left_join(urb_rural_toilet, toilet_avg, by = 'region')
+
 ur_order_toilet = urb_rural_toilet %>% 
   filter(urban == 'urban') %>% 
-  arrange(avg)
+  arrange(region_avg)
 
 urb_rural_toilet$region = factor(urb_rural_toilet$region, c(ur_order_toilet$region, 'Aire Métropolitaine'))
 

R/HT_05_improvedWater.R

@@ -197,9 +197,13 @@ urb_rural_imprwater = urb_rural_imprwater %>%
   arrange(region,urban) %>% 
   mutate(lagged = lag(avg))
 
+water_avg = water_admin1_PaP %>% select(region = region_name, region_avg = avg)
+
+urb_rural_imprwater = left_join(urb_rural_imprwater, water_avg, by = 'region')
+
 ur_order_h2o = urb_rural_imprwater %>% 
   filter(urban == 'urban') %>% 
-  arrange(avg)
+  arrange(region_avg)
 
 urb_rural_imprwater$region = factor(urb_rural_imprwater$region, c(ur_order_h2o$region))