guides suggestion

3_visualize/src/plot_utils.R

@@ -32,7 +32,15 @@ plot_census_map <- function(census_data, conus_sf, pal, leg_title, outfile_path,
             linetype = "solid") + 
     theme_void() +
     theme(text = element_text(family = font_legend, size = font_size),
-          legend.margin = margin(r = 10))
+          legend.margin = margin(r = 10), legend.position = 'bottom') +
+    guides(fill = guide_colorbar(
+           title.position = "top",
+           title.theme = element_text(face = 'bold'),
+           direction = "horizontal",
+           position = "bottom",
+           barwidth = 20,
+           barheight = 1
+           )
   
   if (percent_leg == FALSE) {
   census_map <- census_map +