PEA - Production Energy Available

library(measo.figs)
figures <- readRDS(here::here("PEA_figures.rds"))
#> Registered S3 methods overwritten by 'ggplot2':
#>   method         from 
#>   [.quosures     rlang
#>   c.quosures     rlang
#>   print.quosures rlang
SECTORS <- c("EastPacific", "Atlantic", "CentralIndian", "EastIndian", "WestPacific")
options(warn = -1)

pea_za_1

pea_zs_1

pea_zn_1

pea_za_2

pea_zs_2

pea_zn_2

pea_za_3

pea_zs_3

pea_zn_3