Factorisation LULUCF et amélioration du graphique

dirsol/.gitignore

+figures

dirsol/0_InitialisationsLULCF.R

@@ -8,6 +8,7 @@ library(SamplingStrata)
 library(clhs) 
 library(viridis)
 library(tmap)
+library(stringr)
 
 set.seed(123) # not done by JRC but important 
 

dirsol/ComputeSampleOptim.R

 
-sampleRand <- sample1[rnd.lhs$index_samples,]  %>% 
-  rename(FR_WRB= WRBLEV1) %>%
-  # mutate_at(ListVarScenario,
+lookup <- c(FR_WRB = "WRBLEV1")
+
+sampleRand <- sampleRand  %>% 
+  rename(any_of(lookup)) %>%
+# mutate_at(ListVarScenario,
   #           ~as.numeric(as.character(.))
   # ) %>%
   # mutate(domains = 1e6 * FR_landuse + 1e4 * FR_regions +
   #          1e2 * FR_WRB + FR_metzger
   # )
+  mutate_at(all_of(ListVarScenario),
+            ~str_pad(as.character(.),
+                     2,"left",
+                     pad = "0")
+  ) %>%
   unite(
     "domains", 
     all_of(ListVarScenario),
     remove = FALSE,
-    sep = "."
+    sep = ""
   )
 
 tab1 <- sampleRand %>% 
@@ -31,11 +38,16 @@ sampleRand<- sampleRand %>%
 # Add legacy points to the LHS sample
 
 sample7<- sample3  %>%
+  mutate_at(all_of(ListVarScenario),
+            ~str_pad(as.character(.),
+                    2,"left",
+                    pad = "0")
+            ) %>%
   unite(
     "domains", 
     all_of(ListVarScenario),
     remove = FALSE,
-    sep = "."
+    sep = ""
   ) %>%
    
   # mutate_at(ListVarScenario,