From 0bbb5eccb8d275e8f424fe7525c165c00ca62573 Mon Sep 17 00:00:00 2001 From: Karen Noiva Date: Wed, 21 Feb 2024 02:00:46 -0500 Subject: [PATCH] Update plot opts --- FrEDI/testing/utils_plot_DOW_byImpactTypes.R | 2 +- FrEDI/testing/utils_plot_DOW_byModelType.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/FrEDI/testing/utils_plot_DOW_byImpactTypes.R b/FrEDI/testing/utils_plot_DOW_byImpactTypes.R index d7da6184..6e943f34 100644 --- a/FrEDI/testing/utils_plot_DOW_byImpactTypes.R +++ b/FrEDI/testing/utils_plot_DOW_byImpactTypes.R @@ -269,7 +269,7 @@ plot_DOW_byImpactTypes <- function( # plotList_i <- list(spacer1=spacer0, plot=plotGrid_i, 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=5, ncol=1, legend="none", heights=c(0.01, n_impTypes, 0.05, 0.2, 0.01)) + plotGrid_i <- ggarrange(plotlist=plotList_i, nrow=5, ncol=1, legend="none", heights=c(0.01, n_impTypes, 0.05, 0.5, 0.01)) title0_i <- sector0 grobTit_i <- text_grob(title0_i, color="black", size=12, face="bold", hjust=0.5) plotYTit_i <- text_grob(yTitle, color = "black", rot = 90) diff --git a/FrEDI/testing/utils_plot_DOW_byModelType.R b/FrEDI/testing/utils_plot_DOW_byModelType.R index b7c4f78f..3fa66d56 100644 --- a/FrEDI/testing/utils_plot_DOW_byModelType.R +++ b/FrEDI/testing/utils_plot_DOW_byModelType.R @@ -193,7 +193,7 @@ plot_DOW_byModelType <- function( ###### Add Legend ###### 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 <- ggarrange(plotlist=plotList0, ncol=1, heights=c(0.2, nRow + 1, 0.2, 1.5, 0.2)) main_plot <- main_plot |> annotate_figure(top=plot_title) ###### Return######