Skip to content
Snippets Groups Projects
Commit b334e473 authored by Nicolas Saby's avatar Nicolas Saby :bicyclist_tone1:
Browse files

Factorisation LULUCF et amélioration du graphique

parent f89b5abd
No related branches found
No related tags found
No related merge requests found
Pipeline #266610 passed
figures
......@@ -8,6 +8,7 @@ library(SamplingStrata)
library(clhs)
library(viridis)
library(tmap)
library(stringr)
set.seed(123) # not done by JRC but important
......
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,
......
This diff is collapsed.
This diff is collapsed.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment