Commit: 34cefd3fc5b21875813e65fa965a2ca508132ff7 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Révision: 34cefd3fc5b21875813e65fa965a2ca508132ff7 (tree)
• l'heure: 2020-09-21 20:51:55
• Auteur: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Message de Log

Minor improvements in the plots and removal of one level from the legend.

Change Summary

• modified: R-codes/process_shares.R

Modification

diff -r 7752ba6b97e8 -r 34cefd3fc5b2 R-codes/process_shares.R
--- a/R-codes/process_shares.R	Sun Sep 20 00:12:16 2020 +0200
+++ b/R-codes/process_shares.R	Mon Sep 21 13:51:55 2020 +0200
@@ -272,7 +272,7 @@
 
 eu27_temp2 <- eu27_temp %>%
     select(reporterlabel, year) %>%
-    mutate(new_rank=-10)
+    mutate(new_rank=-20)
 
 
 
@@ -305,7 +305,8 @@
     mutate(new_rank2=case_when(new_rank==1~"EU27 is the first partner",
                                new_rank==2~"EU27 is the second partner",
                                new_rank==3~"EU27 is the third partner",
-                               new_rank==-10~"Other")) %>%
+                               new_rank==-10~"Other",
+                               new_rank==-20~"extra")) %>%
     
     mutate(new_rank2=if_else(is.na(new_rank2), "Other", new_rank2)) 
 
@@ -322,7 +323,8 @@
 
 my_pal <- viridis(4)[1:3]
 
-my_pal <- c(my_pal,"#a9a9a9" )
+my_pal <- c(my_pal, "orange","#a9a9a9" )
+
 
 
 for (my_year  in sel_years2) {
@@ -368,7 +370,10 @@
           legend.title = element_text(vjust=1,lineheight=1, size=14,
                                       face="bold" ),
          plot.caption = element_text(size=14) )+
-    scale_fill_manual(NULL,values = my_pal, na.translate=F, drop=F)+
+    scale_fill_manual(NULL,breaks=c("EU27 is the first partner",
+                                 "EU27 is the second partner",
+                                 "EU27 is the third partner", "Other") ,
+                      values = my_pal, na.translate=F, drop=F)+
     theme(plot.title = element_text(hjust = 0.5))+
  coord_sf(crs = "+proj=eqearth +wktext")