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 @@