##National map highlighting west coast and non-CONUS states and NERRS.
nerr_states_west <- c('02', '06', '41', '53', '72', '15')
nerrs_codes <- c('pdb', 'sos', 'sfb', 'elk', 'tjr', 'kac', 'job', 'hee')
nerrs_sk_results <- c('inc', 'inc', 'dec', 'insig', 'insuff', 'dec', 'inc', 'dec')
national_sk_map(highlight_states = nerr_states_west,
sk_reserve = nerrs_codes, sk_results = nerrs_sk_results)
Run the code above in your browser using DataLab