fix recoding values for q18 plots

Rare-Technology · Jan 25, 2022 · 45c0008 · 45c0008
1 parent ad7da0a
commit 45c0008
Showing 1 changed file with 12 additions and 12 deletions.
diff --git a/R/plot_q18_fishing_high_profit.R b/R/plot_q18_fishing_high_profit.R
@@ -7,27 +7,27 @@ plot_q18_fishing_high_profit <- function(.data, ...){
     `18_fishing_high_profit`, 
     type = "stacked",
     key_name = "Frequency",
-    recoding = c("7 per week" = "Everyday",
-                 "7 times per week" = "Everyday",
-                 "6 times per week" = "Five or six times per week",
-                 "5-6 per week" = "Five or six times per week",
-                 "3-4 per week" = "Three or four times per week",
-                 "3-4 times per week" = "Three or four times per week",
-                 "1-2 per week" = "One or two times per week",
-                 "More than 1-2 times per week" = "More than few times per week"),
+    recoding = c("Everyday" = "7 per week",
+                 "Everyday" = "7 times per week",
+                 "5-6 times per week" = "6 times per week",
+                 "5-6 times per week" = "5-6 per week",
+                 "3-4 times per week" = "3-4 per week",
+                 "3-4 times per week" = "3-4 times per week",
+                 "1-2 times per week" = "1-2 per week",
+                 "More than few times per week" = "More than 1-2 times per week"),
     key_order = rev(c("Everyday",
-                      "Five or six times per week",
-                      "Three or four times per week",
+                      "5-6 times per week",
+                      "3-4 times per week",
                       "More than few times per week",
-                      "One or two times per week",
+                      "1-2 times per week",
                       "A few times per month",
                       "A few times" ,
                       "Once or never"))
   )
 
   p <- plot_bubble(
     .data_plot,
-    title = "Frequency that the main fisher go fishing \nduring the high profitable fishing season",
+    title = "Frequency that the main fisher goes fishing \nduring the high profitable fishing season",
     x_var = Frequency
   )