From 519780d917dc7e18b3ff13f0f7313c3a69f2edbf Mon Sep 17 00:00:00 2001 From: kimberly-bastille Date: Thu, 5 May 2022 14:05:44 -0400 Subject: [PATCH] fix commercial div figure for presentation --- chunk-scripts/LTL_MAB.Rmd-pp-monthly.R | 1 + chunk-scripts/LTL_MAB.Rmd-setup.R | 3 +-- ...nsions_NE.Rmd-commercial-div-species-div.R | 2 +- docs/human_dimensions_NE.Rmd | 2 +- docs/human_dimensions_NE.html | 6 +++++- .../figure-html/commercial-engagement-1.png | Bin 61172 -> 61495 bytes .../figure-html/recdat-diversity-1.png | Bin 17644 -> 17720 bytes .../figure-html/recreational-engagement-1.png | Bin 28625 -> 28621 bytes .../figure-html/stock-status-1.png | Bin 71140 -> 71203 bytes 9 files changed, 9 insertions(+), 5 deletions(-) diff --git a/chunk-scripts/LTL_MAB.Rmd-pp-monthly.R b/chunk-scripts/LTL_MAB.Rmd-pp-monthly.R index ee82a206..bdfe9dab 100644 --- a/chunk-scripts/LTL_MAB.Rmd-pp-monthly.R +++ b/chunk-scripts/LTL_MAB.Rmd-pp-monthly.R @@ -27,6 +27,7 @@ pp_cci <- ggplot2::ggplot(out_pp) + ggplot2::ggtitle("Monthly median PPD") + ggplot2::ylab(expression("PP (gC m"^-2*" d"^-1*")")) + ecodata::theme_facet() + + ggplot2::ylab("Time")+ ggplot2::theme(axis.text.x = element_text(angle=45, hjust = 1), panel.spacing = unit(0.5, "lines"), plot.margin = unit(c(0.1, 0, 0, 0), "cm"))+ diff --git a/chunk-scripts/LTL_MAB.Rmd-setup.R b/chunk-scripts/LTL_MAB.Rmd-setup.R index 08d42163..1da54759 100644 --- a/chunk-scripts/LTL_MAB.Rmd-setup.R +++ b/chunk-scripts/LTL_MAB.Rmd-setup.R @@ -4,8 +4,7 @@ image.dir<- here::here("docs/images") knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE, - fig.align = 'center', - fig.path = "docs/images/") #allows for inserting R code into captions + fig.align = 'center') #allows for inserting R code into captions #Plotting and data libraries library(ggplot2) diff --git a/chunk-scripts/human_dimensions_NE.Rmd-commercial-div-species-div.R b/chunk-scripts/human_dimensions_NE.Rmd-commercial-div-species-div.R index 19a953b2..7990ebb2 100644 --- a/chunk-scripts/human_dimensions_NE.Rmd-commercial-div-species-div.R +++ b/chunk-scripts/human_dimensions_NE.Rmd-commercial-div-species-div.R @@ -18,7 +18,7 @@ comm_div %>% ggplot2::geom_point(aes(x = Time, y = Value, color = Var), size = pcex) + ggplot2::scale_x_continuous(expand = c(0.01, 0.01)) + - ggplot2::scale_color_manual(values = series.col, aesthetics = "color")+ + ggplot2::scale_color_manual(values = "black", aesthetics = "color")+ ggplot2::guides(color = FALSE) + ggplot2::ggtitle("Permit revenue species diversity")+ ggplot2::ylab(expression("Effective Shannon")) + diff --git a/docs/human_dimensions_NE.Rmd b/docs/human_dimensions_NE.Rmd index 62944fe1..3fefe13b 100644 --- a/docs/human_dimensions_NE.Rmd +++ b/docs/human_dimensions_NE.Rmd @@ -929,7 +929,7 @@ comm_div %>% ggplot2::geom_point(aes(x = Time, y = Value, color = Var), size = pcex) + ggplot2::scale_x_continuous(expand = c(0.01, 0.01)) + - ggplot2::scale_color_manual(values = series.col, aesthetics = "color")+ + ggplot2::scale_color_manual(values = "black", aesthetics = "color")+ ggplot2::guides(color = FALSE) + ggplot2::ggtitle("Permit revenue species diversity")+ ggplot2::ylab(expression("Effective Shannon")) + diff --git a/docs/human_dimensions_NE.html b/docs/human_dimensions_NE.html index 3ee3d21c..50479d0c 100644 --- a/docs/human_dimensions_NE.html +++ b/docs/human_dimensions_NE.html @@ -13,7 +13,7 @@ Human Dimensions GB and GOM - + @@ -63,6 +63,7 @@ +