From ad3942a389584ab452e09baaa273ae9a3f99de85 Mon Sep 17 00:00:00 2001
From: Juliette Engelaere-Lefebvre
 <juliette.engelaere@developpement-durable.gouv.fr>
Date: Tue, 4 Feb 2025 19:58:53 +0100
Subject: [PATCH] =?UTF-8?q?wip=20impl=C3=A9mentation=20carte=209b=20prod?=
 =?UTF-8?q?=20Enr=20contributes=20#16?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 05-climat.Rmd                                 |  32 ++++++++++-
 data-raw/carte9b_prod_enr.R                   |  54 ++++++++++++++++++
 ...lectricite-et-de-chaleur-renouvelables.zip | Bin 0 -> 47504 bytes
 index.Rmd                                     |   2 +-
 4 files changed, 85 insertions(+), 3 deletions(-)
 create mode 100644 data-raw/carte9b_prod_enr.R
 create mode 100644 data-raw/extdata/production-delectricite-et-de-chaleur-renouvelables.zip

diff --git a/05-climat.Rmd b/05-climat.Rmd
index 562a496..8212a67 100644
--- a/05-climat.Rmd
+++ b/05-climat.Rmd
@@ -12,6 +12,8 @@ Données Basemis issues d'un téléchargement sur terristory https://teo-paysdel
 ### Carte_09a_Consommation couverte par la production d'EnR.pdf
 reproduire https://teo-paysdelaloire.terristory.fr/?zone=region&maille=epci&zone_id=52&analysis=15053&theme=Production%20d%27%C3%A9nergie&nom_territoire=Pays%20de%20la%20Loire
 
+
+
 ### Carte_09b_Production majoritaire EnR.pdf
 Devenue Production énergie tout court
 Issue de Terristory Prod EnR
@@ -19,6 +21,32 @@ Script R avec Ile d'yeu
 Sémiologie à reprendre, énergie majoritaire pas mal
 
 
-
-
+[ticket 16](https://gitlab-forge.din.developpement-durable.gouv.fr/dreal-pdl/csd/cartes.enjeux/-/issues/16)
+
+carte v0 
+```{r out.width="100%"}
+knitr::include_graphics("https://www.pays-de-la-loire.developpement-durable.gouv.fr/IMG/png/carte_09b_production_enr.png")
+
+```
+
+```{r}
+prod_enr <- importer_data(table = "prod_enr_teo", schema = "scte_cartes_enjeux", db = "datamart", user = "csd")
+```
+
+#### Graphiques régionaux
+```{r}
+ggplot(data = prod_enr, aes(x = "2021", y = valeur_GWh, fill = type_prod_enr)) +
+  geom_bar(stat = "sum") + 
+  scale_fill_gouv_discrete(palette = "pal_gouv_qual1") +
+  labs(title = "Répartition régionale", caption = "Basemis, Air Pays de la Loire", fill = "") 
+  
+```
+#### Cartes EPCI
+```{r}
+prod_enr_geo <- inner_join(epci_geo, prod_enr, by = "EPCI")
+ggplot(prod_enr_geo) +
+  geom_sf_interactive(fill = "grey") +
+  stat_sf_coordinates(mapping = aes(size = valeur_GWh, fill = type_prod_enr)) +
+  facet_wrap(facets = vars(type_prod_enr))
+```
 
diff --git a/data-raw/carte9b_prod_enr.R b/data-raw/carte9b_prod_enr.R
new file mode 100644
index 0000000..515a7f3
--- /dev/null
+++ b/data-raw/carte9b_prod_enr.R
@@ -0,0 +1,54 @@
+# Préparation des données de production EnR (carte 9b)
+# télécharger au format csv depuis https://teo-paysdelaloire.terristory.fr/?zone=region&maille=epci&zone_id=52&analysis=15053&theme=Production%20d%27%C3%A9nergie&nom_territoire=Pays%20de%20la%20Loire et les enregistrer dans un dossier data-raw/extdata
+
+library(tidyverse)
+library(sf)
+library(datalibaba)
+library(COGiter)
+code_reg <- "52"
+
+# lecture des données
+prod_enr <- read_csv2("data-raw/extdata/epci_production-delectricite-et-de-chaleur-renouvelables.csv")
+prod_enr1 <- select(prod_enr, EPCI = code_epci, type_prod_enr, vecteur, valeur_GWh) %>%
+  mutate(type_prod_enr = as.factor(type_prod_enr))
+
+annee_prod <- select(prod_enr, annee) %>%
+  distinct() %>%
+  pull(annee)
+
+# Vérif liste EPCI -------------------------
+## liste des code EPCI de la région depuis COGiter
+epci_cog_ok <- COGiter::epci %>%
+  filter(grepl(code_reg, REGIONS_DE_L_EPCI)) %>%
+  pull(EPCI) %>%
+  as.character()
+
+## liste des code EPCI fourni par terristory
+epci_terristory <- pull(prod_enr1, EPCI) %>%
+  unique()
+
+## epci manquants dans terristory
+setdiff(epci_cog_ok, epci_terristory)
+# character(0) --> ok
+
+## epci en plus dans terristory
+setdiff(epci_terristory, epci_cog_ok)
+# "ZZZZZZZZZ" -> contour de l'ile d'yeu, fond de carte à gérer plus tard comme dans enr de réseau
+
+
+# Mise en base et documentation
+poster_data(data = prod_enr1, table = "prod_enr_teo", schema = "scte_cartes_enjeux",
+            pk = c("EPCI", "type_prod_enr", "vecteur"), db = "datamart", user = "csd", overwrite = TRUE)
+
+commenter_table(comment = paste0("Production d'énergie renouvelable ", annee_prod, " estimée par Air PdL pour Basemis, fournie par Terristory"), table = "prod_enr_teo", schema = "scte_cartes_enjeux", db = "datamart", user = "csd")
+
+dico_var <- tribble(
+  ~var, ~lib_var,
+  "EPCI", "code SIRET de l'EPCI",
+  "type_prod_enr", "type d'energie renouvelable",
+  "vecteur", "verteur énergétique de l'énergie renouvelable produite : chaleur ou électricité",
+  "valeur_GWh", "volume d'énergie finale produite, en GWh"
+)
+
+post_dico_attr(dico = dico_var, table = "prod_enr_teo", schema = "scte_cartes_enjeux", db = "datamart",
+               user = "csd", ecoSQL = FALSE)
diff --git a/data-raw/extdata/production-delectricite-et-de-chaleur-renouvelables.zip b/data-raw/extdata/production-delectricite-et-de-chaleur-renouvelables.zip
new file mode 100644
index 0000000000000000000000000000000000000000..81e6176620ac152b3caa6d5e2a27978ae2be7ce3
GIT binary patch
literal 47504
zcmWIWW@h1H00HKSE>ZbsIZU_hU|;}Y8wLi3)Pm&9_=2MRl+xsq%=|pvl+>Km<dUMy
z<jj&(-P97@lvLg1jKrMO(jwiW)V%!CvecZ!q@2`Zz2xGuy!>42<ouM>c#t91C6xuK
zV3Xog^NOs?Qj<$kON*=%^YT(tt;@hB#Jh)QSXU@$xCR8fTNzuJnrm8DqVPaQD5Rt+
zq~wEi6>~W|E2NYv1SD1#gG2-J^GcF44lgQ6O)OOiPRz_J(RI(vNl7f$O-U`*b;{2y
zwl*>V0TW{j>)`yH#LS{pg_4ZaqTI~F(o}0_h&QZ_42%q|4RlN_jV#PeER7AVb&ZTo
z4Gc|m46Mxz3@t4!Ep!a5U5iUHa}TdfrNjvV8TlpoW%)TJiHFyN9N-EM*~2R#t}xOu
zFg7tYHZrg<qMa)ool(7RXrN<mXlZI-Xkbh;OF@yLdw6ADYEgP7TF4uk=~!5pnHZUv
zn9|I8*ZiE!)I4j<05`PIF)=kXGq<oH$#QsN%SkQPbuP-!tN`VUu*_6&f-^EUH@C2M
zPtAv<H8lSk=opw<7?~Rzn^;)u8W|Xy8GzE4sfDGHiHRBRltzq|1k$*nj)A3-k-4F{
zA=Pd6J-o6cBQY<tI1yB6U<qg=9TNjfV+&ANQ`^^QcB5o#V;w^?Q&Tf)TZuD0nd=x?
znweW#nwgnX+fKrzhoPB{xrv#fsew7D45Mnw!jpfE4RtIG%}vY=3_)cURc#GGFRF}<
zb<B)Sj7<!Ui3r}*Vg={?!>h}R^79}Sfw8fXrG>ReWlB+EX%4swz$_39bPNqFEDR0I
zERC&oP0Y>A4M5d^p^>?Ti79&K#9;w}Txg(UY-VX@Vs2?dt_AoKypfKvk%^_Lfr&Y_
zjK>TkBOPO7QzJuja@|ijC7bA&7@HcHo0x%WWAb7FBkdSk>X;f@m|7TESdi;*Jh{Ng
zOvlu~(!$WllI&o?S*Vy8>KGUpnVVUH3KjgJ;ger_c%_1_f>Y7q-8uPr3c3n@`IV`8
z;A+Xlz{K2?a68Dz$kNQhzyMSm8(J6|8G+Kjfu*^LC5VOG3?gh7{;X!GV`*k!VPs)!
zX01!9O@xz_nU1-Ip@F%DfvE`<tV1uDEOboF4Gb*IjSVd+HyuwhGc?e#G%>d{H35|#
zlm;5k1ZQXpYKNK|fJ#~XmZX#__~z%8D5RtoD>#-V=HzD<LCRVaBSQ-#A`+X4v4y39
zu@R_-HnuP}1|>E_a}#4@P_c`g*a%oeIQ~s_Oij(qjm#~;tpQ5x!WTV8ItG@e2Idwf
zp!$gtOE8NsBOP;NGgCuDQ2I5Z#Auw+ZeglpU|?=!VQc_uKM=A4)(dkkO3a5AFczk!
zhWOgO#)bxl#>OT_*1Cp<Miv&}*fy{*H#9OwuUZkEJapp;)~@CTM#hGwCZIMh`L+;F
zPlg6MMxa{I2vnSq?Hhb)$y~?6+|<I<!VpwGl5GP<LNWq1am*}?j6q!<@<Rw`Dl#?G
zv9L5VwloHHCkdGEn^>8emzS#GoS&OpnwMBw0`3SK7?_$`SeO$oJxmRaEliC}K$*?d
z+{h4|o(#>5%)l(<(gVLegd^KT$JoHk*udBjRP0h>75*C0Ovlp9(9#ez=3uQ$i8Yv!
zZlPmlX=Y|=VP;5~$@toy#>P6v<|d|w#+FpI1G52YY@%ZUs+~+hZBR<W2~YO3FwrqG
zG&3?b2bH&!*nu;nSeoh>8=4!L7+IL%4=+ar-^9{%aBl-Oo0u6G7#a}Kp|LcyFtIQ;
zw$`;YGcp2oV@xg0O-(I9`2~?n2-rfP+%?iMHZwIgGc*Uat|_nvZ~D?PGcz$WurM$;
zr^qX4c3??gI_3rjhGr%d*+N9AVy0tgVq|Gy1}cdu2s3=C*g(h3)Y#Az+>xTd3XB59
z(7;H?(!#*R)Yz1wP{Nrz3@r_Hj4dsUO)V`6SrCw4l$V*T;FzAClMf#p4oWSl0(X1N
z%#BUVtO>?Bs5&<{HnG+<GBma{HPkV%HnlV}Ff|9UkTVGxmZ6MD8GxE`RI!CXjx^A*
zFf%tburM$K4Q*2HDZ=U5Ovl{N$k5E#$PCn+r-F^>y(~j>9aBpK6GIbo&`34q7U0P^
zMwU7j#wMmlhM@Kx6_Nz*bPnolnHXA_g9<eQ7CGl+78mE|DFh#0QC5_ykXoYPo0yrG
z3Q76U#BOG6O0Y&SGBh_cGBgI&JBFr)M&NFjsimp0r3q*#8acHSYa_w5Xl7w#YHDO^
zX=<%YB`a}<sF99|rGce6740IN_6<#R%q&e!EDQ`lt##@IDrTW;q62EdnHzwn4yY82
zc=CX;sg9Akp{1FDr3Halb4E&%KKYqNka-X@a|<&wB3kigM#g3aCg5(NiIF9EoYmCQ
z+|1AveL4h@?$IqlE8bB`TtgibP#=w4qY1~osg9+AfrYWTiIK6jE~rK)%L|yX4W7I(
zGPDHsZ^$+lcQ!H6u{1R^v#<cw;A9(*C;1qe>X=&?n;BY|gF5{9gWoYPE5B3$6sw?8
zEjY2LBm<g;EG$h47ih?1_J$TFppi;50~1pNa}Wzro;fQJum>#}VYUnnbc_v63=GV{
zt!WcVtRh%q8XK8dm>U{^I&2hKgytudtO1(!28~x!;t|66!$ilz!qVK_!U)urqR1~8
zdBn&-$H?5o$jI1&Qg7f($i_OB#wKQ#pw2&j=R>Mv=cAKLi$Dt$P}8xQG2yb%$jl5h
z&~IpAZDeE)ZiSi|8kre_hsu!CF(Hfak24tRfJVX%Ee$P=DYS=h<Qwal8XKD%n3$Lw
zQfL>R7_!tcG%>L>H#E1P*hA=TPD>qg14{!76Hq4&f1HG*78Rv})}H8shQt#y(@S*}
zk`V)2pacQorWS(-%|R-3gYuIzQj1fI$}$hHfL5EJ0Ze0j!>ER)rUqtaph;ds69aQ2
z&``OlrLl#9C2C*AS%JDP!k?x<ql)l}Q@Xl~U`c9bVr*b&Y5{H!(lfyDmAoc8#zqz<
zpyfuOw$%W-3bT$g(=j$RF)=W-0QH9H8k2-e6GKBCGtj8GC1}Wmu5QCq`WTt$m>L*c
z8bR7Qbj*>M)uFkLrG=%Ti3xb-j-IIsXEW2-K*z|;!pO|r6x<5L8#<u&pRP}7^5K=b
zPN_x7(8&PMNUt%$J}sgNXliC;09m|e25NJlO)cTGgJ4NwY;0g`Vqs`#XidH)gcG@m
zj<K<&g#~B`k`jB+YcfMa9ZL%%V-wJXJNeGX8PSHOIu-_I#->ITxEW6-Gc?mNHnB9e
z1daXRbG@U2PinD3FnCR>LW;V74ru8pWP~L5@X8{{`ZUn8P;)~=Ga{BlSeO}_8ktyt
zd)$^L<|d#)b5jd53j;Isu@aK(B_<V^7?~PdSVFo_RJ0m*44Ug0n3|gyg2rg5Xdj+P
zH8RsNH#0Iah74#>(N2t#(bybRtAUoAfW`vw+2pJcT$-W)8a`HVEXhgCD*>+*gQOT!
z6C%blOpJ_74NQ#9!HX;n3=J*8W636<L3p&X2){*W%?Hei+DOOD!Vt8S)DSdmZ9qM%
zQ2L0VbqD6)xkJ#PD<!sIM2dxufrX`^p|OQIXo#8;qw%CMLvtMiBTGY56Ht@Eh!RT(
z=UF359WzT~V@nf5&<YAl?82Ez%`A1yz&!-ed>#Ssfa<zb1)s#q{5%E6(xk+^WXPb3
zxuK~k5uH(U3u9ALV`I?z12Yo~GswiDrI{gkO(b$}6u&)a=@=z(8R{4s85>#aQer;g
zXfZSZB>{8r0(VMm!jsBCF>hpQW@KVwNTF}gt8Eh_9SciSOLGg*qz8W2gMv0EF|SzH
zJwFq)_!V`w*xb;}$dd37gt?`GvAL-+cr~w~i5YnJgQ=yFnHjiIg&gg~Scew*n1z_3
zj<JEcDQFF#5!G!2IS{nx1iZt;&_Ku3+|u0G#0Zo(DYuJ=WM`^lZej#lkqw>?qc|)v
z%1>iM9Z+l37_w=FaxdXY-=-!ymPSUPv0PA5O}SM#%Qp)P9TOvS3(zuJya~b)v=hiV
zBR?m#BoVsN#~ieggHQqo%?22lS(<_;YRnBS%^}5_skwzI>R>TW3kW7@3mpqk{xLEF
zt)Zoc6{zXhNXHa3!Ah3FL?l`Z(5StIiK(TbwJv#fpqF44#yVyuW}rIQluRRWrWQj3
zOC3{FQxii_qm?Yz;z{#{Mus|;hUSJQMg-jL3|{{lmY9=scx7raC}DaemX_#(CmX=i
zvgU>sW<+d3voyCfFt;!SjU!l?7=f03Tbmh}7#f;^hWL<6UeIz|g4Us>Q<Owxq+?=k
zYGG(>4yvxGZx?1UZ?0ozW^8C;2HqG$1q+Et$VNIQW=3WvmY}X16>P+pP)v1<O^wWr
z4M0mCsbCdGL2qQFV*wh=FaQmr;IqI{Avm!#x3owhEHMW(;0$h=!IGdkam!!~%q)#e
zj7&k}lIDh{;QlUXjS{#YgGhvgY$7n0VyI(gXklV(Y6|j^AqDo}PvxMIOlw_A%*S2y
znCTcB7=wlfD6@cYN;Wdov9L5WHUUr6QV>*lQm~nYj<K<Ug|US(h0%_YbS(^YKt;ca
z384h#tPqx(mvVSzs)Bn_VqS`ZPi9F;eo<l$H1%2<7!a!34Rp-R%`FWLO+oXFhM-;&
zXaRw#g{hgD3Hl0if_C8vEYJ#SO9Rjv570;nh4x?sn31uLfsvVsfdyz&1f{+pB5|4N
zn3$NGn3)@aVxB_J;LI$hhC0S3<`$L~7N8{(_-#o+EdGaVdUY$!Nl(oyQP2es?YR~g
zCl-}JcA1zPS{f2juY%?VO-)U}$->yuz!)@gXKHC^Vu4nsq3kXv&Thg1Y-pfkVhq|6
zVhTzv)V3bItz~GcV{UG0X=!2z3TP_ZhBJDNOmslKOA|}bpoAfnZN-xl4Gm2}8+?sT
zEex%73D^tUui}=USCX2SSg8vw0$}Bfu?gYw1+*;5#2B=-#1ce-2KFpWEe$L|Lwty;
z(HXu76^~u`XHyMzEG;dJ&CJ2gC5r9BEMq`@2qObiOCxJt%1tMHtbwVHp`nq90VoGh
zY#q)-XbhUFH#7n7YoXW{Jc-WCM90L!+{h5LU=zPRkX0JNiTTBOu)`?Kjm*r67(+I;
zG_o`^Ff%l<HnuP|165vThNdRw;MN#&Lc?hT&QJo4f|watS{j;}lWR8NGS5WE(%9S*
zv<TCTTubn^>r8cwEQ}0{EI{kE$qXMf<1srdraC63CI%J;re=oZdI2Nb85-+Ym>F6c
zn3)-oYbKs_X>6!tW^Qa@VN57ueNq+NQ^846!6`GRv<P%G26%qM$jpL>LeRv>(%8t<
z!ot$p)W{ON!p_VPbg%?y&J{Ur;<tui1Q_X<7#V=p?wgrY(;}2^u(6K0k(rT+fu)5p
zMRpL*5oS8(rY6Rw=9UJO1si6XGSM+HGBGeSq0nGF3Cqw-$I#N$(9*)tf<P#tj!UE}
z<RmIM6(v@Jm#U|vD&(j;=4IyOKqn!L%q)r7A#7k|WNKt)Zf<R1Xk-i;tTQvPG&eH9
zKO{no)o3XYC1Duq7@3)areBRsXl*ZM(POA%X>4h3VFoIqsqJaPDb-lV&=j(*(v<36
z$4I>vItHeOCdQ@~28L9(3{Q%-)G;tL04)G8CSWUQ94}P?vW`>1F{c2ubPqI*mXnhT
z?SUAX8yMhQtY=_uZfb07Y-(*}W)A9im>GihS%5}WkjqLU?ZMw@G|&N^?qgwLVPQrU
z+ky!lnPp^QX=rK)T2Dd^&!Oc<%zR;>V`*V%3Tm{{z&iBoZ)|K}YHmrDa3m(r8Ce(_
z8k<|1P{&3*Ngs5A1nB%3Gh-v_cn+fnYN%sqXb4)fY)lmkaJFPkj6mt#2;7pzn;<|n
zPojczMq+M3Vmf%Yd0tK?s6`H`mym`VGC?EwkPe{{=#(tNIl$1&!oVD|A=T6rR417k
z8XK8n9%ulrkjQZYTCPA#riP$tT1&dvjF}&ebPUWv&3tQJ8o2;Vbzy2^U~XyxKAnk1
zmg3JlM&=e~md2nBQ8coiaA5%&P%;B83<FIs(#RD!Go6{Sj)56ygb6g#gV%Cr=*f&p
zMVX0tCAu!DMP;zTTqAQMf_-2^9a94fQ)AF_8f#rcGXoRQ=_J->2Bs$FpdFJa2Qm_}
ziij{Z(y=r&wX`$@jqOls8%Bv}tYd5n8k92tjQ~>S6|~|2OQtl_F)_8YurN0PokT=c
z%TUT5BTF4)0~1SAQ^>e6Me&0t%YoMIS%PvL=sY$GBL-)pHZnKSF){)zO(q;cuEiy#
z;Dba{OB8}Lb8?_(-<TVL1|ta87p6u=76wKZpkvL949!d}Kz(L20|Nsyj2Z*4J%kgq
zu?}d>5NIVdc<l)VR$-)O&>lDo6C*=Y@H!guO~w=JhM)sijEs#zkxofC;f`@b9b<C~
z10w?i(4mF+V<IJ0AuJQzRB*~K&B;&CgY{o6h&kcP!Wg{55j^)`ZeR>PR@T%KG_V93
z)kE$B;I#)W-=kzjQyo)F6LZk%F6N-ANUB+aS-2P)>KGWA7@C`ar*SCo4o1yxWU6Cg
zVPR-)L1{qYNma&1I)(<OW+tG;W`>kFp5TBtXh*%JnK5X^17$ISGXaCvW0{&;7=x=6
z{C)wgGKTbEAuU^DP@|DxPZEAafT5)+bl3&Fr54K)W(>m#7K6s7CZHpA%q^|SFdbi3
z0IlvK$4tTns*#R`iG_isfr*(pSr%Xvqo9S47N!=ULWGP!z>~~POm$4mKs&olh;S%$
z5)5s&-Pp*C@VP<;#-KBs!8@T1jX)Fckm)c}b2HS1bdUx0cq}5ATr5p33=J$TL5E^f
zW)oV{!7Sj6LB|xESXf$uPH~{fQ)pJ971$<*phIbNDf12CL<?FVY6x1vZ2+nnDDn?R
zi47_g%uUSA48TPYMP}nm%m$zne@zWcOhL_AifqAImYNvpn1Whhrl3vac%#G-yrwF#
zEHMY$jv@<VV@o4zoYolV7#J9XR*8Z3Ra%&tfhtpLGebkr5<`?yl^9zH<QYR9a|;VI
zb2HEZ9J-X+g}<&a1D$7V2%76NwWioA!b#fDK*z$^+}IGb(Trm2@MTg%GaXBFQv-AG
zLSagS5X~aYg2%{G$K1lq+{n<>oC=|cUfEcJhfd8v7adR>W_U8IC1|UHk&%f7XnX{J
zkOiftfHtLoj_g9(mIpfZ*#NXAl|b?~&@nbL0BxTJm203gn!u;pf!4~Jqa7OKs6fCb
zjB?FP$H2na6trBy5_C)#XelJ<R9XWQL(<JA*ibanF){%qGSD6v%KU*RS`5uVE08Qq
zEG$6##0)9%5zfNR#9YS=d|(=Aw-7#`_$B6*fM!t+uPiCbFUSW?2AY_d7#Nrsm=Hds
z%}B=*bSj^rxupSQBc`Rfr7>!ZlVCndoooy`9~iU*j!d%&q*&0fyP<`lxfy6#J-O}=
zOU%hHg5I&90J%-$@JjIhMDPOil*22NGg3>6v0T3Z+C2+8!9tf@s|gp(CZHXbre@~m
z;PwESp-8L`QKHV!0yJF<+Sf^@t@!eerJ;_6fq^mjST8b-$0%ZqK<f@o3@t4|84_QN
zfbP3NtcOi4wKjs}6=LqQF*UF-H!%Ti^wTvoH#al^4K<lsf~M<0EVO|K*pgcmD+tHA
zsg8w(iKT_5IcO}1TwBm9D^Lw@Zf;~@30aFwmeX;TQ$_|l#wMV{i9u)Slj&kS$;HT0
z$Hdao)XdTh)LbPP>^X@FL5EkSXXfXD8kSBuiJ5t@C?;lurkRPcrGb$FcxAPvsWEs*
zx*1piOBCa`i*Q^U=@=NAn;9E|PX`C}SShj&J<>s|SPae0OwFj_89WhWsbgqvWM}}|
zSZ}RM$QSCaMJbST7Tr^e%Zfl#{^0y)YCy#9SqlquQ&V#zaG%1$$OLkjlYxP$Iogq;
z&I&2`>>(U6pp(cg&CEeNbU}9yP+%2$q=1^hpzb4N#Eb$@;E50;a~;sZkQU~krko)K
zcAzz}QECWKwzM!aH!(H^t%|0=5}f4<s1agmU}kI#&iDjuNLBF5uS%?hW_43zB91yY
zGBh+WvoHjkZf<U12-?|TW?*b+jCN!vXe%0q>1aWN+4}%33binU7UCotPDBFLF|{x-
zGcYtX0gb9q>UxxjH3nU#1sY-{HApb(WD`)A!o<iFeApt%Zp4$o4UKg`rJ8{$Xj`8l
z$tL4WamMC4MuvtKMxbL22pJ1o;-K!Bmz<gh+Aa$z$4rS>fM;oJ0=m`41e9}(4NXiT
zOYjWM&B4o=P}&iAticFxLrWcVBMURo?GK=(`{Wx;u#aVAtYZv5nH+oo82Mhn6URoD
zI))aerY6SV)I+`%I3wE-RDBqMT8yB9Jc1Skm!{~#CJ<qzj0M3dcLN<0Pzh#k1lq<3
zT6GC7TTCr2jEs!XkCsa*1s#)u%@V@pfsu}(k)frTF?i&Ve0$JqE6}!UBTHj5b5OtC
z2y|!<Xh51o*W-y~P`lK`(A?Y-)P=+AZ14bHPNG6UQEG8vsrun{IjNxboqH+h0HVB<
zRHTDt6f~R@3y}Dl(C9KVB)HwpP{+U+w6)H_2;^Zi3sZ20G&3+TH8DetE-JYPXX-T7
zF)=W=Ffs=3RxzT3O9-biGaU;v3qw;AQ_x^5U7UoT9F2^03{5PIj156uM|!vbU(z)-
z1fPj*0@`g$lv`lk62HW%#7xi*fjsaGIA|%II;><-&~SDPa`khCr&$vd{G;E7W}q94
zKvyG~7#V_xzfCPIEiBN^t%Rjka-Bd#Ysb*i+|u00*cf!85iOlUU{J^ibpDYsXeSFO
z2h-9agfk3iVS<^3xtSrT3NxaqThMcg321XD$YL|lky*5~8c!B6Gte=yFg38S1YdrI
z&k>;tj(O>+MaAIbs#6s}$qg}*X=z|!U`Y7DYNQkRO+goif=8G^SEgB_%mfi*74Cax
zjf^Zni5zrnF{PG(Jc;*yR|C+QC#DwWhM=QKsB9Zbi{DVk$iU11w0FeBT9;Cb2;@)D
ziG~KC)1^TTB1-KdoCS@Hbu2+kMhrkl$5Cn>YEsAS@|l7>XJKk)3>pZdu4Sn4WoDsc
zYGi0;2I~G$Y7a&)!pO{A$I{rq)C4r>jL&q~(eF+<simmbjhUE$PVYCcB;kZnT|)y)
z3scY-o0);Bu_?yQnBaq76!2I@Al(^2?(sD;0pHL;p<RU2ouQ$Qv9XbnsWIq;F-pCL
zR#Kp*1<>9i(4{n>COVZZ!c5_YCZKJi;HBb}+J%~#Q2b;BKHtLB2(+<};&g$LzKsn)
zC!3pqHjGkiIL_v~v5AhQi5Y0oFsP4@Ke;)9ZXyGnE(bk+2-IBx<sV{}LYkO?dVQcH
zMhwjiK&v0k42;Z8%t0*VVFWx@pd~KMI5*G%o#SO<Zfs^vB|A_e8#Ik>W?}-`J43GV
zgtMc$j)kcO=%iswBeFe#Gp-Gdb<B;ym#vWN0sMKv6m-L`si`U1F2~3MMix32hGw86
z2`%v(iga#>Z)$N)Vx_KoQEHX7k%_6Xfq{_`5kvMy1}0`^Cg3Hgrj|y~#o3mo7T}Y(
zkdr7us|d%kv5tw6rMan@C8+mKp>24g#9Rk-mY#(<=sIu;ZNZ2cOC1vnGh<6j1JE1?
zg@)r!u%JVUK?9JW)*jwC0qrk#Ey_E*G8G!<#->D^?`&jYU}9tjS`w>kXkcb;03O~n
zG&M9Z0S&REL^@Ur@Gp)6UB72yYzp4WOP=|JQ<8~}p@pHLfu#Yc=R%erFk%*Tn-!>4
zWd^Pg$OsiYDbmnX$I{#!bTb{fhT}{tM#efuW`-t4#-Mva357(df>VBSVtT3q<Z@W>
zA(G&t!q|d{Q&Nr04MB${nSl;aF|e=%w*?K&vFuGs!D|ox)MKP$Y+_+zYyeuYZb^YH
zXw@c4m1d%2Zf0R@W?~LnT}z22gcB<0VhKxgV{;?Wwhl_HLh}!1Gr&v-G_YiD2HBWN
zLC9g|4A2oCMxX<;46Su3@dLgbVy0tZVQgs(J{6Y|J8)+dQytK`DWEI9Df0zc>vc>m
zbWA}zpa^;mc4QN5f1j><eqKptY7w-22VMM((~F?hw(#*rb4ycj9d2e|VQh#w{|=kC
zN>#vP6aK7<a{Uc8tRvV(1RW}7U;tj=OAY%7XJ2C-Gtki+plL2^U20fKFdJLy7+aVb
z8G&{f(!f5HVh}XBV`gS%U<4{_sbLwu{B5CQ0P6Wz8W~Y1ATdfQBhcWEiKUqlXzl@@
zZ$cGP)E#qD^A0Zu?PD}CGc+(TBj%nm14}bQV++tBp+*KKCZIt}GedK83uDy291hb7
zCp7~dGeZMY&`MwvYcedr6ZW7x6)nt7%|Pp{$uJosq>Vv$-kO-0nOGX)bt!mV2Iy9j
z!z*=*ON(@2d!|f4N7)!y5}fQa&@nc(GzHC>npo=^8(4z&VOyISfc7w=pCyt4I<O=u
z2bV<zbDa_BNIe4+6VUN9RJ95v!x@7XVi|z$QZ%Q~LxhtPXaRtUsfDE(XmLG7frk<Q
zh9)|o6_6H&pt%c*jK-5_%}sU83@i;TL1#SSjge3VA5eQXuNZY!0+hxKjg1J7a2gnz
znVDHygH|bnGP0SW0qBN#v>6G!HV~+_jCDY_eV7^<TAET~3*i_CAEIgry2IUq5{rm!
z-e9&s!Q11_D6tz)dH`+fvM`4ns7OI%5$ijYd<)v+VPQd8^r24x8X6kw7#f(Eo0;HG
ze2DW|-Eu%{-NA<{f=f_i6C#d*H8urZPX+3H7@AlZfHo<b8JHOvqMiGX-x9(}4|L0x
zfw_?(XaO+U*5HYJLt`BSOGD7%hoIdGWZQsQk{Rn*T9}%e8-R`#As9fQO~tOoC7`qJ
z!L4*((5YC7patrn!UlB52J!7>6GJobC6;CemL?{c!!F>JMhf^XBT()b=oo>@Ht-re
zD%eI$BCs&GG&MIcG&QrPhK1-k#$3nJ#MI2x(A30)8s_6kZk9SGpzHe#O$-TG<X;3j
zyE`RS0djSpg06y7D&&|YYa?(T1$Ea5$CI&<1?U_W(0OU52B4;mnSq6oA=-i_X9c2c
zBPO0eGuFnI7UmY#MrIUSh$kE^biilDf(Bx#U=c>{wbU^%Gc+<Xgq)6s&m$?Nu*(5Z
z+MuAjfr!ttW(Lp(sD*_o_y|yxfl}Ny5R89g&_NbP7G~zw<XVB&zD23LjC2eQElf;J
z&CM*SWj>awUk7xIkcA1^HV{s>7CPY0fFWqL1-apbk%SD5b-)K}nwuMu?Q}dDz|26$
z+|<w<bX_+=<H1!5c&(X7X=ZUAs6$g!l98WT3>w-8RWN46tY$T~G%x^-y&GGbo0>q%
z5<_DnOEXY+6)n9IWg(&LVP<S>U|?u$Y)&Qn&{8tClxAjZX<=YVCHn}cJJ2avhGqt4
zW+v1MQ#3!K<W|s~6sA=28=iy-YEYRP7?@a?8BxhH%&cXiV`Oe_U}<4V&<fBb)8RhI
zf?>b>%%a@<Qs|JUg{gsop`{_=Q|duG3Jpw6!M8%1m>Pg?zq2;AG&VH{&uF5ge8RR7
zP80?@76zsUhM-eNb&V*t4^Kpy>6n_EnwS_Gg9ZdCw+SPb%ycZxEKDs;jLbo2X5sgV
zfAZm#iFpdXiA9N-#h}IApgZ4-t&Koy2n|5vVt5Cp;m1ILSKWZhBU4L5V`K0@8gl#)
zw1r@OYGPnwY-A3;FpN^W2&V*N&~A2f10&E_2&J~+Ne7^@S`$Na(Ed7WT}ti2NCk$*
zI>siT1;U`+N(4-YRU6J3iFqaYd3oSHU7&nwY(mV4o`IPKXe$S39@NOd!~!(tVrpS&
zXkh|6NEA68;I#)|5o)LdI%^SprWW;Vz^sTM3wSL-_d6I;U=QIGW}#zbX<=k(Vrl^D
zUQ=QfdXLJ`NXNp$!q5Ob<xPRXc+#!0rH+xAsj-Ox=!^sc;e@opBnNbM?cqfwiJ9qn
zsYQvIpf(UFje#y|CYb+?Obtzq%?&_TM_E`HgI710T7WJg0IhRCPGUq_h?dwelY)Vc
zrKut4P+riwQd(Gv(nK)SF$AAALJhBBlmws?E{)7g!TZpu;uFH@+YmG{Yiwx*zCD^M
zcH&8ohGsfOW=4jfkt(9C3dk?50xbcARdpt2MBEr*Y-DL^4r(*%T7u4v1aHeSFgG*>
z6?iz(AU1o@(jHnuur#(XwFIBEPMIx)BgsO?!ot$j%-j&PJeMLLVI(=wK&Xj{CFqbj
z%6x$*+Ko(f3_yjbxseIz_8%kgak{3K_#>oP!7(`_u_y%=@21AYRB)i{F3ilphpAbB
zb|Zjd-ogTOM-R%R0%FJ&bb$n>MFb+=%o2PhlOZKm5RP?oP_w|q$ix(U5*a0S;fWhV
z106#nQv+i&@Lp9)EWu1#hB}~;NON=0eh>m-1wE`!M<Mv|in5|q9R<hI5=iG8RPmS+
zGec}-W@>I~Yyui>H#f0_^g%344K2;lm(>xr3t#k`=$L|zK&R9SjL-sI<ZfzgW^4eu
zS&UNC@kh9cg_(tsDR`!y!hj;2hz*T&j4e$pO~KdYQfM1mv|u&`3_&ZIjZI8VK}`Wl
z!w_eG%Fx_c$I!%(U@~x2@JUn%%1_Qn1y8_7Vmp2eoVqP6@!aPDy64p#bcL6$p{bdr
z1!xipbcUz70cx@)#WDhII71yXBO_B23nOs3LoG`QMxK$5nT4T|g^9TVXqt&e)}mD5
zraGWDJ+*8ioEJcQ+QC^5e3&t{?8TGUjVyEwO^nSgj6k`MYRLzq=mOnOXKZP1Y6`AH
z@c9e1-t|Z=O3F+vg4OV5MutT0<~1}lHGuRiEDb@+fbi7qSnME>{6R~Bj7<zIjEz87
zJW^y6TAD{meCD7t2~3QP3_xQSlz9lv8q9JLG<j!fVPpp0e@vNOgj2bpfsUzxfe~np
zyR|N5mf=a-hDJK3CWa=U`)eq)1S2^cT7dd^76yi(O_)S`K*2Y^s04J|3v@^hw1bM!
z_`RV4cmM#@WC2~q1HLoZ)Y90*1bhJ_j*bczdkCgz6JsL_&=PnfP>dLxlWh@NN<&G|
zMmiSYqaeU#4d|kGP-lxA-=JB7nVdmwJ7XhbQ*+REdWr%LUjj4M0o^uX4jww8#5+Xf
z7!w^sb92zyI-ui<D6$J<kjV^mWsZfR5$K)?JSO|7gQfs<Q`93<ORb||fbht_ftdkl
z8=nd2oKG`DWAMGSrWTea7N~2UaTrfHXbg0WObrbzO(7@5kYNLQfEeo-8W|gzS%Q!C
zG$P$VJSoOl$H>Ukz{0}Z+|*hZpV0x{j7%a7Tnr$<Jkcd8|15{;wjB%%AZ!B?M8T;A
z$(iv5MfoYE$t9WjdAcd7IjPAdMVZN&C8@fpCAul8y2%-dIjN;Zx<#pZ`K4v4If+R*
csl|H9#bp8BtZX2|7#SEDvKSZ`1a^XW0H9nFy8r+H

literal 0
HcmV?d00001

diff --git a/index.Rmd b/index.Rmd
index 599f151..0500235 100644
--- a/index.Rmd
+++ b/index.Rmd
@@ -22,7 +22,7 @@ library(gouvdown)
 library(mapfactory)
 library(COGiter)
 library(datalibaba)
-
+library(ggiraph)
 # thèmes ggplot
 theme_carto <- gouvdown::theme_gouv_map(plot_title_size = 17, subtitle_size = 15, base_size = 13, caption_size = 11)
 theme_graph <- gouvdown::theme_gouv(plot_title_size = 14, subtitle_size  = 12, base_size = 10, caption_size = 10) +
-- 
GitLab