PFH - Production Food Habitat

library(measo.figs)
figures <- readRDS(here::here("PFH_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)

pfh_za_1

pfh_zs_1

pfh_zn_1

pfh_za_2

pfh_zs_2

pfh_zn_2

pfh_za_3

pfh_zs_3

pfh_zn_3

pfh_za_4

pfh_zs_4

pfh_zn_4