center legend title

3_visualize/src/plot_utils.R

@@ -158,7 +158,8 @@ plot_raster <- function(in_raster, conus_sf, conus_inner, outfile_path,
             panel.grid = element_blank(),
             legend.background = element_blank(),
             legend.direction = "horizontal",
-            legend.position = "bottom") +
+            legend.position = "bottom",
+            legend.title.align = 0.5) +
       guides(fill = guide_colorbar(
         title.position = "top",
         title.theme = element_text(face = 'bold', family = font_legend, size = font_size),