Mercurial > repos > siwaa > redelac_stics_a

annotate redelacComputeAclim.R @ 1:8ce4e694e8f6 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
author siwaa
date Thu, 02 Jul 2026 07:35:08 +0000
parents 80842c5ecb58
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
1
0
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
2 library(data.table) #version 1.14.2
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
3 library(dplyr) #version 1.0.10
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
4 library(ggplot2)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
5 library(rlang)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
6 library(stringr)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
7 sessionInfo()
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
8
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
9 args = commandArgs(trailingOnly = TRUE)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
10
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
11 climatPath = args[1]
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
12 horizons = args[2]
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
13 rdsOut = args[3]
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
14 csvOut = args[4]
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
15 png1Out = args[5]
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
16 png2Out = args[6]
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
17
1
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
18 # sanityzing
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
19
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
20 trimedHorizon <-str_trim(horizons)
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
21 purgedHorizon <-str_sub(trimedHorizon, 1, nchar(trimedHorizon)-1)
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
22
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
23 listHory <- lapply(unlist(strsplit(purgedHorizon, ",")), function(x) {tmpdata <- str_split(str_trim(x), " ")[[1]]; paste0("(annee<", tmpdata[3], ")&(annee>",tmpdata[2], ")~\"", tmpdata[1], "\"" )})
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
24
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
25 rules <- lapply(unlist(strsplit(purgedHorizon, ",")), function(x) {tmpdata <- str_split(str_trim(x), " ")[[1]]; list (condition = paste0("(annee<", tmpdata[3], ")&(annee>",tmpdata[2], ")"), label = tmpdata[1])})
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
26
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
27 rules
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
28
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
29 cases <- lapply(rules, \(r) {
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
30 expr(!!parse_expr(r$condition) ~ !!r$label)
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
31 })
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
32
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
33 str(cases)
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
34
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
35 cases
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
36
0
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
37 liste_mailles_SAFRAN <- list.dirs(climatPath,full.names = F,recursive = F)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
38
1
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
39 print(liste_mailles_SAFRAN)
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
40
0
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
41 #agregation des fichiers climatiques dans un unique fichier
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
42 fichier_climat_tot<- NULL
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
43
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
44
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
45 for(maille_DRIAS in liste_mailles_SAFRAN){
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
46
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
47 setwd(paste0(climatPath,"/",maille_DRIAS))
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
48
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
49 filenames <- list.files()
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
50
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
51
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
52 fichier_climat_maille_tot <- NULL
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
53 f=1
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
54 for (filename in filenames)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
55 {
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
56 file <- as.data.frame(fread(filename,sep="\t", dec=".", header=FALSE))
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
57 if (f==1) {fichier_climat_maille_tot <-file} else {fichier_climat_maille_tot <- bind_rows(fichier_climat_maille_tot,file)}
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
58 f=f+1
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
59 }
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
60 fichier_climat_tot<- bind_rows(fichier_climat_tot,fichier_climat_maille_tot)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
61 setwd("../..")
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
62 }
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
63
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
64 #rm(file,fichier_climat_maille_tot)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
65
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
66 #entete des colonnes
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
67 # column 1: name of weather file
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
68 # column 2: year
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
69 # column 3: month
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
70 # column 4: day in month
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
71 # column 5: Julian day
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
72 # column 6: minimum temperature (degrees C)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
73 # column 7: maximum temperature (degrees C)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
74 # column 8: global radiation (MJ m-2 j-1)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
75 # column 9: Penman PET (mm j-1)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
76 # column 10: rainfall (mm j-1)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
77 # column 11: wind (m s-1)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
78 # column 12: vapour pressure (mbars)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
79 # column 13: CO2 content(ppm)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
80
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
81 names(fichier_climat_tot)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
82
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
83 names(fichier_climat_tot)<- c("maille_DRIAS","annee","mois","jcal","jjulien","TN","TX","RG","ETP","P","V","PV","CO2")
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
84
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
85
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
86 # sanityzing
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
87
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
88 trimedHorizon <-str_trim(horizons)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
89 purgedHorizon <-str_sub(trimedHorizon, 1, nchar(trimedHorizon)-1)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
90
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
91 listHory <- lapply(unlist(strsplit(purgedHorizon, ",")), function(x) {tmpdata <- str_split(str_trim(x), " ")[[1]]; paste0("(annee<", tmpdata[3], ")&(annee>",tmpdata[2], ")~\"", tmpdata[1], "\"" )})
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
92
1
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
93
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
94
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
95
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
96
0
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
97 listHory
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
98
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
99 paste(listHory, collapse = ",", sep = "")
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
100
1
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
101 #horizonsFilter <- parse_expr(paste(listHory, collapse = ",", sep = ""))
0
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
102
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
103 listHory
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
104
1
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
105 #fichier_climat_tot <- fichier_climat_tot %>%
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
106 # mutate(horizon=case_when(!!horizonsFilter))
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
107
0
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
108 fichier_climat_tot <- fichier_climat_tot %>%
1
8ce4e694e8f6 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/da77b35ba19889b7800e44db967c33ca6e55c39a/tools/REDELACcomputeAclim commit da77b35ba19889b7800e44db967c33ca6e55c39a-dirty"
siwaa
parents: 0
diff changeset
109 mutate(horizon=case_when(!!!cases))
0
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
110
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
111 #fichier_climat_tot <- fichier_climat_tot %>%
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
112 # mutate(horizon=case_when((annee>1990)&(annee<2025)~"ref"))
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
113
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
114 #ecriture du fichier
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
115 saveRDS(fichier_climat_tot, rdsOut)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
116
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
117 fichier_aclim_an <- fichier_climat_tot %>%
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
118 select(maille_DRIAS,horizon,annee,V)%>%
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
119 group_by(maille_DRIAS,horizon,annee)%>%
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
120 summarise(Vmed = median(V,na.rm=T))%>%
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
121 mutate(aclim=-6.2*log(Vmed)+17.5)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
122
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
123 fichier_aclim_hor <- fichier_aclim_an %>%
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
124 select(maille_DRIAS,horizon,annee,aclim)%>%
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
125 group_by(maille_DRIAS,horizon)%>%
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
126 summarise(aclim = median(aclim,na.rm=T))%>%
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
127 filter(is.na(horizon)==F)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
128
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
129
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
130 #ecriture des valeurs de aclim par maille SAFRAN et horizon
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
131 write.table(fichier_aclim_hor,csvOut,sep=";",dec=",",row.names = F)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
132
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
133
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
134 #tracage des valeurs calculees de aclim
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
135 # ggplot()+geom_boxplot(data=fichier_aclim_an,aes(y=aclim))
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
136 # ggplot()+geom_boxplot(data=fichier_aclim_an,aes(y=aclim,x=horizon))
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
137 # ggplot()+geom_boxplot(data=fichier_aclim_an,aes(y=aclim,x=as.factor(maille_DRIAS)))
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
138
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
139 ggplot()+geom_line(data=fichier_aclim_an ,aes(x=annee,y=aclim,group=maille_DRIAS,color=as.factor(maille_DRIAS)))
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
140 ggsave(png1Out)
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
141 ggplot()+
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
142 geom_boxplot(data=fichier_aclim_an %>% filter(is.na(horizon)==F),aes(x=as.factor(maille_DRIAS),y=aclim,fill=horizon))+
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
143 xlab("Maille DRIAS")+
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
144 theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))
80842c5ecb58 "planemo upload for repository https://forgemia.inra.fr/redelac/redelac-toolbox/-/tree/68f4e9db390070700af804f77468145abfc26bc0/tools/REDELACcomputeAclim commit 68f4e9db390070700af804f77468145abfc26bc0-dirty"
siwaa
parents:
diff changeset
145 ggsave(png2Out)