Updated plot options

USEPA · Feb 21, 2024 · 643e4cb · 643e4cb
1 parent 9aee258
commit 643e4cb
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/FrEDI/testing/utils_plot_DOW_byImpactTypes.R b/FrEDI/testing/utils_plot_DOW_byImpactTypes.R
@@ -267,11 +267,11 @@ plot_DOW_byImpactTypes <- function(
     ### Add Plot Title & Y Title
     # plotList_i <- list(spacer1=spacer0, plot=plotGrid_i, legend=legend0)
     # plotList_i <- list(spacer1=spacer0, plot=plotGrid_i, legend=grobLgd0)
-    plotList_i <- list(spacer1=spacer0, plot=plotGrid_i, spacer2=spacer0, legend=grobLgd0)
+    plotList_i <- list(spacer1=spacer0, plot=plotGrid_i, spacer2=spacer0, legend=grobLgd0, spacer3=spacer0)
     # plotGrid_i <- ggarrange(plotlist=plotList_i, nrow=2, ncol=1, common.legend=T, legend="none", heights=c(0.1, n_impTypes, 0.25))
-    plotGrid_i <- ggarrange(plotlist=plotList_i, nrow=4, ncol=1, legend="none", heights=c(0.01, n_impTypes, 0.01, 0.2))
+    plotGrid_i <- ggarrange(plotlist=plotList_i, nrow=5, ncol=1, legend="none", heights=c(0.01, n_impTypes, 0.05, 0.2, 0.01))
     title0_i   <- sector0
-    grobTit_i  <- text_grob(title0_i, color="black", size=14, face="bold", hjust=0.5)
+    grobTit_i  <- text_grob(title0_i, color="black", size=12, face="bold", hjust=0.5)
     plotYTit_i <- text_grob(yTitle, color = "black", rot  = 90)
     plotGrid_i <- plotGrid_i |> annotate_figure(top=grobTit_i, left=plotYTit_i)
     # "got here4..." |> print()

diff --git a/FrEDI/testing/utils_plot_DOW_byModelType.R b/FrEDI/testing/utils_plot_DOW_byModelType.R
@@ -192,8 +192,8 @@ plot_DOW_byModelType <- function(
   # main_list      <- list(spacer=plot_spacer, plots=main_grid, lgd = plotList0[["lgd"]])
 
   ###### Add Legend ######
-  plotList0      <- list( x=plot_spacer, y=main_grid, z=plot_legend)
-  main_plot      <- ggarrange(plotlist=plotList0, ncol=1, heights=plot_heights0)
+  plotList0      <- list( x=plot_spacer, y=main_grid, w=plot_spacer, z=plot_legend, u=plot_spacer)
+  main_plot      <- ggarrange(plotlist=plotList0, ncol=1, heights=c(0.2, nRow + 1, 0.2, 1, 0.2))
   main_plot      <- main_plot |> annotate_figure(top=plot_title)
 
   ###### Return######

diff --git a/FrEDI/testing/utils_save_report_objects.R b/FrEDI/testing/utils_save_report_objects.R
@@ -222,7 +222,7 @@ save_fig7_images <- function(
   type0  <- modelType |> tolower()
   ### Figure options
   # h0     <- ("gcm" %in% type0) |> ifelse(9, 4.5)
-  h0     <- ("gcm" %in% type0) |> ifelse(13, 5)
+  h0     <- ("gcm" %in% type0) |> ifelse(12, 5)
   w0     <- 6.9
   dev0   <- device |> tolower()
   # type0 |> print(); ("gcm" %in% type0) |> print(); h0 |> print()