Apply feedback from regroup

Context

This MR aims to apply some of the feedback received from the Findex regroup meeting. This feedback pertains specifically to the global maps showing weighted threat scores for major and sub-threat categories by basin (and their legends).

Summary of changes

This MR consists of two changes:

• Rearrange color palettes to more closely resemble to colors used in the paper
• Change the exploitation threat category to "Fishing pressure"

Expected results

Expected results should include a recolor of the existing maps and legends in src/assets/images/.

Verification of results

The expected results should consist of the following:

Habitat maps and legends change from yellow to green.

-->

Pollution maps and legends change from blue to yellow.

-->

Exploitation changes to fishing pressure, and the maps and legends change from pink to blue.

-->

Invasive species maps and legends change from green to pink.

-->

Requested Review

1. Run the pipeline to make sure no errors pop up
2. Check the output and verify the results.
   1. Are the maps the correct colors? Was exploitation changed to fishing pressure?
3. I would like to know your opinion on if rearranging the colors is enough, or if we should edit the color palettes to match figure 2 in the paper.

Next Steps

Next steps include working on getting these maps into the planned tab structure, see merge request Findex global maps tabs

findex/_targets.R

@@ -123,10 +123,10 @@ p2 <- list(
           # color ramps
           pal = case_when(
             MajorCat == "Habitat" ~ list(c("#4E6D6E", "#C9D8D9")),#), 
-            MajorCat == "Fishing pressure" ~ list(c("#002D5E", "#B2C0CE")), 
+            MajorCat == "Fishing pressure" ~ list(c("#835192", "#DDCCE2")), 
             MajorCat == "Invasive species" ~ list(c("#B74F49", "#E2B8B6")), 
             MajorCat == "Pollution" ~ list(c("#7A562B", "#C7985F", "#E1C8AA")), 
-            MajorCat == "Climate and weather" ~ list(c("#835192", "#DDCCE2"))
+            MajorCat == "Climate and weather" ~ list(c("#002D5E", "#B2C0CE"))
           ),
           # file name templates
           threat_legend_raw = "out/%s_legend_raw.png",