udpated f3

ices-eg · Nov 13, 2023 · 390af48 · 390af48
1 parent b4772a7
commit 390af48
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 15 deletions.
diff --git a/selectivity/R/chapter/Fig3.R b/selectivity/R/chapter/Fig3.R
@@ -84,21 +84,21 @@ out$Label <- c('Eastern Baltic', "Faroe", "Georges", "Greenland", "Maine",
 #setwd('outChapter')
 out <-
     out %>%
-    mutate(Region = ifelse(Stock == 'Eastern Baltic', 'ns',
-                    ifelse(Stock == 'Irish Sea', 'ns',
-                    ifelse(Stock == 'North Sea','ns',
-                    ifelse(Stock == 'Norway coastal', 'ns',
-                    ifelse(Stock == 'Southern Celtic', 'ns',
-                    ifelse(Stock == 'Western Baltic', 'ns',
-                    ifelse(Stock == 'Newfoundland', 'nus',
-                    ifelse(Stock == 'Gulf of Maine', 'nus',
-                    ifelse(Stock == 'Georges Bank', 'nus',
-                    ifelse(Stock == 'Flemish Cap', 'nus',
-                    ifelse(Stock == 'Grand Bank', 'nus',
-                    ifelse(Stock == 'Northeast Arctic', 'igf',
-                    ifelse(Stock == 'Faroe Plateau', 'igf',
-                    ifelse(Stock == 'Greenland inshore' , 'igf',
-                           'igf')))))))))))))))
+    mutate(Region = ifelse(Stock == 'Eastern Baltic', 'NSA',
+                    ifelse(Stock == 'Irish Sea', 'NSA',
+                    ifelse(Stock == 'North Sea','NSA',
+                    ifelse(Stock == 'Norway coastal', 'NSA',
+                    ifelse(Stock == 'Southern Celtic', 'NSA',
+                    ifelse(Stock == 'Western Baltic', 'NSA',
+                    ifelse(Stock == 'Newfoundland', 'CUS',
+                    ifelse(Stock == 'Gulf of Maine', 'CUS',
+                    ifelse(Stock == 'Georges Bank', 'CUS',
+                    ifelse(Stock == 'Flemish Cap', 'CUS',
+                    ifelse(Stock == 'Grand Bank', 'CUS',
+                    ifelse(Stock == 'Northeast Arctic', 'FGI',
+                    ifelse(Stock == 'Faroe Plateau', 'FGI',
+                    ifelse(Stock == 'Greenland inshore' , 'FGI',
+                           'FGI')))))))))))))))
 
 pdf('selectivity/chapter_plots/Fig3.pdf', width=6, height=6)
 ggplot(data = out, aes(x = A50mat, y = A50sel)) +

diff --git a/selectivity/chapter_plots/Fig3.pdf b/selectivity/chapter_plots/Fig3.pdf