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
zcmchg%Z?n$b%rU+HUzD_@B`FtBp^%3`^BwIvxnjU;*5x)B}3W_YPu6-3B@X^x{46z
zAp{7118pqAfV~rBc-in$@8s`~tYUX&c19F4vPo%XNP>)$5pnM4KPR65{QH0Z!$<n@
z{Xc&Go6X;Tkp1Paj~?ltpYnV4o6F@lZ?>DO{pD`CS<kQPReibJE-#n6dS37N_5AYH
zVpZ?A^KHG}?BCX_#kZ^a`X`syZ`YgGXP29+`Wr2BwtM%cHY<HoueWD!S%trJwpg$0
z`s}S);hU%b_Ui2SvmZTq{^IGsBxP3o`0QQlS6X6r#s4?@Th~9lxR_n-XU`Y!uJyam
zH|yQytD8UV>cxKcVzFHB=1-TatHm`Rc|Cu;Sze#Tp?;)EdG=znS}eEqZ1<|(zFz)r
zU!Pqx+u+Z{(ODRzRb1w2l|*OrILX2&4Z^cLjH;?C`Pq}}-SYL#``YIdp1<1cHg7kp
z-QwoI^#M;lob1i}<}2bLOwufg!!mxjuQ<PGZ#@cwBC6PNm^>I!UB>+8{kq=1Ty{=A
z%7c=FkJB`JF!E0}t7W~u=fI;fNV6y}%JQR#e_%Eke}1vuEPpS#_!V0d!^KHalxI)t
zO~Y%Q{f0r9m2r_IX~}-WBoD=3Sy^!c`7o!QLejzGQ4m&fTtr1QIpr^J-tS&5*30XK
zl*T;=9S3PxA>y3%)VuD`Zi#ggM0u9wQ<EIzry_`}yr`;t`fa+k2a;5zd6b2Pbl9Yv
zWs%<`3d*QRi!hSTnw0AEuBu9sAWzaHjgk|%sJ@<EY;OMZ?RK+n3_+5_ReAQsyQ}SD
zzcMDEuYtoL3d=GI^9p5{7I}fVp5;+olxfx#&H(}rDGY-ouky60(y;_=3?BzcoTALr
zVyfl)X9SHTizBXJ+yS{cISo=wFw87#Jd#M4ccLoDqB1MF-mz<1q#(|NEUd~Xu0|ir
zpi)Uu++ke6HO{r4ZT2_sXY<+P?alwLHfw(N)#e?RPi85FDKfVo6r;gP{xk+LVn4Vf
zxItBcd(`27H!ZuUML~t_i^~M{>`TebQs_p+x+ud8!SE*6WiH%^A`HtSi7NlqEo_Fb
zR-rnwRNBLL7lRBJq3RMgBrR(vf;avpUO3+P_3Rv{ezV**x;Bj?d|0O{jB(AYFo|WM
zlM?kVWm}|4BDLG`xow2p_n!s$0R?*8cmqDPY}bQ~pnNeFoSff=x*Qh8L6PKH6p4Sm
zmL9zJl4}nO1Tr)+kmEXzQP{<HfyZYQOqpeo&F@X3Fv9P}Pl%$pEX{2rG+5XEZ4WK)
zWT^uGn?sV1JD!T0pO8et#5js2h@*F7<E0`fiwuJmNk5LJ(DR{Uxj1<V3rWL|UU!g-
zGUB-^PpU-Wq+|Ur7Z|5?ji2`V^?tqB?@S;ZhFMmYg<E@M5t|@vLfEn*jvDQe$GQ30
zUF~6~<G$=PNWz>AMN+#yr0f<k$09~mq@05vnf|4h0q#Ryl{upAvjLm$iTX|o!s*2G
z>pL|14rr1h8d#@HKB&)bEaF$DK^*0T^3u0HGzJBw%7P>+;*_+Lox=I-%f<esi8k6|
zl7}R1P6%kKs7%r3XY(qLV}&tURb*KudAXGm2Nj3jB__zT1luj|+Jj8z?mNMJo~O8s
zVZpUeN8=v;3UKD4oQwCMa)MULgD52=&83MwDA~9;47ipkGl7%`iJn4<!Z@f(qJ+fn
z+XtlsJs2canPk$1_Ah_F*{+wDv-6iPSDO#X;jio6cg8EpizLm@I(*f?bD4AgB)%2;
zD<k4UNb)c%^s~D{GJ;r(iAlC9;F*AmLn6bV%!>?Z$+@8k$hrBM5Gz7w;>}O9!9LR!
zK~{xnlorZV``?pAaN;T`NyRt*-2|kD`CP#k-fAJG<{)&jT3%lh)xWs;^IJ+8^$x?Z
z#C<ZHe_-|;fwX%WaC%hakdobrvM4rTS5{?7m9|SA=d)8OI(ZR?Gs|L#Oh$6}M9DQ*
zWGp76<>r0LMLA(PiIeFLwa@=4Iu{!os&p{X%~@n1$pWecXhE{3c5)YYSn?S;fTj*Y
zSp`ktWQ`0jD-Tl>7Ge%fo)rg$M0U3va?AH!A|3VK(zsEOqSj?;M=kBX`z)x){owk>
zig-rT=|%jeco7qGpczIlJ1izJQ<mq1;gZR*Uu|I@Jk5gS9;!_Nzn#GO`nQ|?Ot&hn
z_F}Q6bk-=evdY{F?QYH<U$@CwrX*szIZFqf4jbL)B_vTwlEiq^XzlT&oMJ&9pVUaG
zfX$0gXHPBBP}Lje@><_5A4F?qMM*SPDCI}1D<dQ`V&slwhVM3PjGP1&K4fJoHr6|D
z%<;wl{ri3^fI^#(^Te$Sah;UtCwWDo)_9@Ro)DpSsCIF%`@@9n9za9}h-`QjQRMQY
z<G%bP$dUw$l~R=Sqh-0Fia-iZCi?W=P?y6hV!<jbQw3@E@Bi0&y9Eva5I~vg#q#Ao
zm|fl`w!{$4FNx%je`5ai=JHj2U2oqmZ~lBRn@V6Nwlr##Wg!J-6a%`bKm-)4BxOj%
zbT?MHm`(ddcAjb#PCw~)IW=jXlF<fWVeH%|JTRN)C8HRZ@N8o8)SvPiJ73keae0tr
zX&Rz*jN9}H56rDiqA19f6|YS4`cod8Mf=1lwcn(Q8$ah$o>x~{QAnxE3SDR_cc1cj
z2Hi|5c`?BssR-i*T2Dv*-~8GB^5*^galPd~#syTSH*v<aw=N*@MA(4$2tZ7_^EQ8T
zVSLOX8ct0@T@u(<6h&v_iMW{@-9YAxP?E}z2c0f+AUhRhA2Pu{%MM;Nc?@z*l*Bx~
z*&<|sn-bI|!BAo)a6Ws6eSKjtsk5ukegO*Nm?3$6^M2dl(^Rc2BA{VzkBoSm5)=7z
ztS!V-d14tUTS{mxYx|LOPvL?z&Zv$z;nReqhi{NFY*wU^?Bs;>ESCyuhD=nPGzpCf
zY4%blNg=ByxQUFKjS{(x{nbqA<JtLcwOH>AQmo;aj7+jqNf3^Jze<3B0*4E!<{AHt
zW6ir>yq%EKP{-IpP!@nr*wd7xS}~$<2ZgB}D(UL8q28q+L0Bsik>Ha2mbUO%1Xsru
zhyb|^e&6rLZ&zdiQQj#Q!jIOVkmisu5rXP@j_sH%+3eZk9XaFk{kMztWs_7Xh#*b~
zMv12QbBXW=d0OU8;gAZo!9;d#YCTA&!^bV=A`*=g90Q;A-KrF<1}s1_g(LH!WZ^RE
z1$m6IPE&5)hel6GNHGz*R0ZHN*UCCtG}iU}DRBE9sG^{pUAfg)0UoQMX2`9?5m^s|
zPOnHz7^mv)wVy(+bNT&fgDPJLIa4v3np&IH!XPUuN_=#COtG^Q*p37!eGN)vPeZZm
z(E+`dHwxBfnk`xQJ0n{hgXt?`X;FW^7}ReiP)bmGN=sVFoU0S);?-tVlWJ)&hcGxs
z*I}Pk4FKJpnL-WKjiOO&8Nk4HvUreylcmd`l>Ef8Ftk&UX!CI#khUMW@Ci&?Dr*ng
zy@IDkeSA-Yk-Y@BAsamQJO;TX3PE*ep#9{uj`~^)&r{3}D!OIx!|jXHl}60*E0ixC
zVzj31XJ3G2o10=o6T(JB3@*+D+KcWbFRMHPl?B1RfnKw>yoZK8g<OYETTDcWlq?Eu
z6f#%S)9S1FBFMp@q`7H~nSkI4jLaUv0)mvr5ubpfjZr{yW%%Kt9E=G_^&|)seyLnW
zs3eMwz&Vlc{x#JHm{AGm+d3&tU&U!K7_=jxv`hgnj-rWog;6qb%&qx%QF5wbsv0zT
z01EJ<W9M>ZGX2&cRy`ynLNF92T=qC9Hz%Wp2$Sf0LJj#`iG_nnW{}%L@6##kMWe^M
zB?vTBKi!><l`m$$s@GR2(Am@NVtqAxw%qMD+r{djKq;}i6=+@*#FN+qHlZj<00JP?
zzy`Yrb0;m!VF^K9g#ym#LOkj84lG9EP+O!bF!J83yF=C-hloxqaR2_~28D%ECJiMd
zvnbHHHg%`NyJ>p;*?#r1rpaV(QhQIXuYm^~JwBC69jb;RH?={S!mvd`c+-S55x%o>
zGq*ae)m?rXZMXCid{Tc>|Dd>KYVzHXfGliLfSII4a(Zfm*GmON(IxrW2cT+^L}XnJ
zz6q|3bGOHalAlqWt=Efp^MeXF>KCeAPDT<eDK#a#O8;rJ3s|!*8=XMQUQNaE1pAs7
z#$EEJ)z>kKA>uHrFuwk)yLAk=M57FC9TSinWWq$H`iO?IDX3VOE~h({I5;vWbSoP)
zaF7>^&Gq^?jG~|tc0vxBY9hG1oWw5M$z{CoGjQ3v8RS6<gQuh{2#CH4%QALtx6UJ3
zK+aeo%zP{nn_mYmv1Doo8L`pl(^<YBuw)E|zzByK0IZRB&=WiQlJFNRz#H+{H7$He
zHVCXc7S?sK&v3D7!;-Vd%hi6X(HLZsDb40oN1RF!Bws>!P*!IdNmYZjBMc|o(Xpj=
zGR_Mie2YV2_hHlt3AMuDBw)`dCUmVA4Yx#4=*n>53Gn@nt<O_vBX)qp=(n(iu_(PV
zA10!^y>y&XI}K9LRtq}O>G2b&lW27H+4*|8S{;fIF>$7w+mQ1(LunRgG^2w^Zo1K7
z*ABORJn0SxwiqJ<v_Ptpcqn~nx_#Ay@lVM2=TgyAZ`#eNppMzM+A6c@sdwE~T&N6_
z%~XbHa$**a#$N*gNn$N=P*oo9h~u1{uilV%`%+~znD`KZ#I%apz<M;RQ9~nAgrVdx
zV#lcucJ26ybnH$eNE`6_B|q{>s5vb`Oj?4O8WeA)*jz^*`*J~ov?RDkYdiqCuK1G<
zL0eBk=@glZRmWi_%rq1&tgi_Ynm<FE)-;>ziZn1I08+v%gT<YI=LbDm3Zw8lxh2%3
zm5?mYf?Cny^_#^@(`~+9E#;9ncIkGY+zX7;5p*U=I>9<cAc2aeAr(}vk#C%%{y>A#
zpU{zt4x18I5mJ2;%6)mn^%FEi{h1H*1wCh{4DiWuq|9`t2O?^h9ZHiBS3}eTk#{Q#
zC6saj!&F{;psyGdI$@Y_#=x7C>9G>OI80{zcDn>bHUAup`!Sh|)H-9}2uv+yRKaPK
zF$5vj_<lse>X>Y0?OdczI8(ZrBhqG(fn$48>uE&hB4kR+g~|Z>E#6TF_Xs8V+>AUc
z1DmEM*3vxyUV!bv0Zrc6>wYXEC)^(PDycM&&GYOAnVJ?NOo^b$?h7JYyf=eH)u)EN
zILy9bvd~Eh#5gWVTr_x%JY&d&;u)|AJ&R$b<7Q}DmXxdn32m?^9;ABQ%m6zzLE-rc
zqA`AD%dOK*o2Uy$m+nJi_{OP6Fbj+@68q_(fcwB?Pld3LH~ZBF58{w5DNmVjRVD`E
zXlf52+09s4n%GG!bxTrKIvu%hi6Wz|0JLhliyB3zBhptc_;w+<gaQn?AElmU2dAGh
zcM%khsn?D_C<|95F@0|t349gSJdWuE>BCAg14)PnKT?AXEIbyNC4v+u0ilfVbRq&5
z#%Xj$k{?C{koq~KU9eon#l2fFyLWMC;7D0sBXx+cMyzfV1=H(2Vompzg214=pXn1s
z8)FFc)Tn@uO!tx!8L^&)&FOMab9Hv7CoFudgSV^gjPP*J6=H0ks`|!1i&c2XmQie{
zywC>HHGp~xAt$?3)b}V^Xec(b;yfsISf{Vx5{)TNO9uE(Osb=>DbLC<`|ZZfv;v4S
zaSy*qmci@jdKz0wfw8}MFH%8XYulI^_y}`Y&^&Tyy{HW8QW6O?)Y5Nl?5B+em{8%|
z31pg?E3aD}MTi2qsX;Pi2M`%hVmOL(CS%B$k`AN|yEkOWO~oNI5g<;+|Ku9L;Z4hK
zD}X`Ku&!DkeBiq+H%k-!QsGJ>HJW*o>*#})kW%$vOC)zR(ZzRP9YTG@LpVid0h^d1
zslL>DvRawcX|9J3ycf3!D<gs#V^6o7@+0<5d|mUVLr;jP1W<+qlj>k^LJ;0a0M;YD
zrWsA9%@hA5Dmp`B&gtZ`QtF)*m@)cZ1Xn=gc&_b4M&v<ERi8AP2}6ALVYwDK83YpU
zi+bPub~LEm0NCYbV4AvxY&5<i8Kf!-4+d;EZ-DQg;YBb~h3VApA#G%7G?fp>kp?@t
z8z82W_KknU`Ymy1PDKVrd-U24j#b*7QOcU_F`fpX-p%&##=@+5O@m`pf1&}P1D<4<
z1kkv?dQtbR88bNc=-i4K4gk(eZm<bS#@*1VJ8WGY=SsQOgD-5dgIh}{HsfE%Ut3Sb
zFw;ph-|%Q1AFcOpZt<}7{wOP_yk|rDw7@^7(GQ-ci9x9*=C5h213$YP!wr#e-#IPc
zWy-_>M%9d`(u<6+@C9&GMw*OXbWl%$-33U^aALx^vFBo87tDBCF;<I|<tfWkmiqeU
z{Y#!q(LF!rg(8qRjXFG~L6cNQMGng#tBKN0M><BH-?-<B?X=u?O;CsW!tv5{a7C<M
z<hqwG6bs8|q!ayDw_FgDf^f1zHP*Z7eD-8})y!E0FU7<~O8(|@nD*iJP)NZO3j<Pv
zPDv|R)6GNLujB0_;x;<&i@~($(HV8<dXnm1id<lYk4?tRV-uDOA@Qxjkj!)TJgAO~
z-Leo8OT25`OKC%ojST7)IUxZ15@I1Yg_>76zFWLIaua|(hxfn@M;h859n=bwK@>ZZ
zC1spPUz>MV?;K6vJrF1q_Gy&(M=pK>g9hMxcuI}-FU|%B!RzZ=7mE|v^p$+<qCK0e
zflMKBgc-K@(cfrca6q5ZY6!m4S0BCdAjeS|gDDtjVKTt>{U0F?;O{PLUg<h=9x=3&
z^B8@nS8Y;B4yqt)%CKz2z?oWpgoRA+ym5h0jtp}Wg288DXN*Nd4Pr@Y!3+Q!zXi)3
zqhEMh2!N;Ip7A6GFPmZ;l^1!8(vnUBWaa0_0^;$m0fjm58XPIZ`gp{P7!DMR(Jd5{
zX=Rr6>fH4J5w|{|48vA<PeGBwcsgBcrM7FJ$vnU2v8v^gm3bn;0N@2ZY5i=ICdA)*
zj?3`7{bx7-wKA_*KILsDwYD*^`NLqD*^e$3Z|?m1$A|068SL-4F0Ld|YaOF4_#UFW
z24BdjGIF4GT@!uJAa_!5puveLzH+KR#h18wj7LZ?mz0^5Z2csk)MZC{cIhzVEgFT6
zpW+K_tc&{4Ol$_4pZG1uu;i=7cc2~U5CAuK1aTiV3%q;&^^>ojeBfDnZ3lTo*>CW+
zI2qy*oPCr21{6ah!TsDi_7hI<b{P9W=K`?Y2mTa?1QSvb<*JiK68w;7;uaVI6R^g#
z96j{?^jrZ39Z(H}u<~yYdJGm3Va5UwGw#DYer3ChU(U|gFYE1f(_G)lWYVV0tkI7s
zug}Sv7U~~VcD}@sxNB!mAvOHYELbBkxp}k5lgJ4&1z3+LE>gkCcS{{=Esvj6AF+gb
zM^Nm(gdFmziH5`k%%?+9_|kHVAdV_tk!I&22fpOmtlkg#@Z)(3lbLj~+0znh-xp~j
zp3%TH!1Vai>8TEI-!#kM@yM05t$u;fYQ+3wUM_D>#!?jtI9BD9+1m-DbI=F?m5k8B
z^}UxdounLm#~U%48ioI@fZ3CloA0p1JdI1YlO~M$lC#RLdW-ZZja>AJ3H3P~i$<HM
zfr|UmY70|~zey<LgcEqET<A-u$KOoPC38;?q=IBmMi_L>C<s&_h7Q9S>{K4>B{EHy
zqf(=3M+#RYKc_$;;c4`nMvMrM(wICDBwZY&g+zzB`ge}xsC7+GEKNkCb=fMT=UfNn
z+Of;K#gTU(g{sm->CsdM@0x5B2oycGGIj%YSs)0d&7Vg9vCH>FASSLSaG;A0w4jY|
z?#vDOvc6t1;o<4F<_$1nKw!SS&EnL$LQ6BdQ4my=`T?8`_{>b=>SRBTBOdN2<-TQ*
zW@Oc<6e)W5q-MF20)f!%NIeJcNu_r)CaDfGpF*Se;=>G!dH{`~d4P`ZSAX%7?YdD)
zx^v3WC)_!Y*zv-K$wE>T3{85IbQ`SDa>Y$0_8tOuaFm|kqv~K<c~Rga)^~GKO74;B
z09si2`%yHyxeH7u={fR9#vvH-)fSGVdxyth^fKMp#Rqu>2b!zo87AczTql7qxVc=s
ztZC@gBeZ6Sq)`<r4Z2kYkBtBYmR*MbE8`3DJN@1yw33C6oqKpxlgZ;)0^C3!Djl=g
zGHFci$?4!_IFsjA+>8na1;7sZWwmuoxSzfokkb)CsvK(pBluA2={z&S0|x_N#&2bt
zgpj<XZG>W_=e-XL3Ihuj`x)@I&-skP>tsZP>VR?*KHAu0e;;#=8OL644>ny7KM!uP
zm2c!Nz{506TCe)`_ha3Pho}!ti}z5ni)!onn<>aSHIRmi;dq--uoG<0Ext@~WpI!N
zsUf~oY_X%3`eICrVaf9V>M(o&dM!1m;ts<}X*xsZrXXgMZ%XzdJ%>PLr=iu;Qovzx
zYj`zRwFld7ehK*Gd{wV+{zH9?C^gW|7=0)6(cQ$@ehmr5XHHG}lFAss?3T|ou)3So
zaGSvB2nn2yAz(Rsy{QN=hwKVN14ev$*Ha>#0xFy`W|rs8EbAHfQLmElw$1f^J3lsL
zrBqu(d^h)zV>{8<<Rj1KiJHqy{Hz{E{j3$7Xkf`OA*a+)x5{a_NHtesQc^8}<09C)
z-ct0X;$|lS0O(Yza)Il;4zDL^c*;UR5}~4`yq2~wEi=l|yu4bX9FvX6FPV_30W}?b
zwRkKdXW=qo6zJ$8JrhdVq-SuU`HL;~a!_z64lW(FK{^;Hh6fe*jY}v<$?=9e$)@q!
zIn}-Cn=T4D!VG)Rw(x_Q`(HEz6+I}Ny1SO#s>h=QbL2s{FGP6N1l-Klv@;({^x&%f
z3_W`J$_!OB8k9Kc6b-89smve&S~=CE$cRNcZo2J?HX?4;(<@ty5{Q%z9!<t_`J5HH
zK*JBwIO8ewFM;Zlx;JUHJ7Hb*{bF=JT!@*9wGcpE%7*f(Q`y{>Q?NAV5leKOa@{R`
zW3Jpy%%OL{PfE8L4BiCPPGN!)w+m1nPk&57u<LeE^-4h%0&q#ESl_~KB>D7wUqn-u
zeIvivYIe6^?B?k{rZqpVn=wmArXXB%-xJSbY7UF$r2(@xGFnnTY+Ip=*-6w+xhGYu
zndd{vbpnExb1b<r=4L1nI{~4d^x}f^QZUNQOh>bw9NG=VuZwE=pcJt_LS#{#hr0oG
zc8~rXqTsxL5R??Vz-mi3k0R0WZ(GI-*Ot*GYEiGITK^u?4``k#eCcQkZnh<XqF{hA
zYx#I8U7dnq0Td;NJRZHMMF0TU&?dy39BNOlyFDg;R-b*bUtR+}GpwqKZ3kUKW3yYA
z&>TYzfI#((kztK4!3(A}r*C0SBIt6T!OqIh2F^bXy$&be$7xbs1O?O3bMu|1WKn~o
zNH*1(cJ|nkR=r7)O|&-)W6GhT?HI5{JQ1;;b`}%?<UgHqP7<nO-Ta{e41dLYxUV<+
zL&_6$TF9^fH{YwrlOn8n6_U{jq_))g#|W}}+rk{w+)P2{jPpa|k!zyZ>PgRXQDpUD
zbOu@|A?Q!3cT03TfugQ>e$2g-U+_BdVoj{QrEnx;su$hWSD{-{Ud)=9{xAl@pl+m(
zcy5avMOQO9sW|N^ZPgGn4~F^Da&rRZH{cwA^K?JL6M5{+!UqQ+zWVF@>GZe&bwI}p
z0AVvZ&AyAH*+6ZrcRVy~db-2`NqR~~55TQjIaCKF6;>+eLY4{-MG|{ArDvsMQ=y<G
znYCzUYE4I>Z-^QIFT()+cH-u+l2%7RvS=BF*B)EyU%Sa`kn!@o4GZ7$Km~UJYiLG-
z<KvGx2sDeCU3>E<o;hUn9O_0ska$cFH9O@$CPqw{b;iw5Q#9xXW=;Xb>dw$Skzj|}
z`m6v%N^lK4Q*x~jL9*o{Fl*S%8ku5iJ(f@kj|($>=#%Wk&EJ3{D9To`c|Cd(nihVf
z4U^Xo7(nz97xjFz|4tCVqp73v;buadZu4*sC0{Z_;yflG0+nc2i*B=fF#UaWI=t6m
z1g=R_X~pSYRNR*YAdOzaoB`3uu^+8_VleQYm>z`3Yh}x|>!A)QQ4+|f6S<z9U%pyw
zua5T)zUqW~*K-$C6r}EGB0LzlQg8Hh4BV~uxsQ<J;(_>@vAsSd+_%nn6Uvdeon{i5
z4=u~x;Mzny^GFxDOsNl%o;CyJtppzZi(I>7>BF$TVD{qX&&)jtcs+dA1m7||WFFji
zkKzQf$%|kVpec@;7^LJ8k)oU5b<?t4e;QzI{7LjqOAon&zhP_=Ko#E&*e{&GQ%`#$
zB))XqOdJ6z<B<WJ0)J|qYw5cJk&w(3UQw0))CS|JsGxX+FXUo_a|ZX#zTPk)$rRv!
zec$*o!`;CDhI^{?&TFA3yym3#(W1s>XVgd7X6uh3=J4To)rnY&PEw<HrXuRRyf~nL
z77TO|s?792WLqX2T<C<9+_Ipab|ZQQh&t5{EwT=h9n%NUQqnisk@i%V-lyaJAncTj
z%w3P`diF)V{T6WD(Zb^y+LIU`x_Nnp5u;$dItn$tevZ4g{T><)_7@b0kf}^GyU>qP
zhv!?&S7;^yt$u{$6O-xdMHTN*9i)pDYkD1?o6E7h+zwr}0<8KGv#>UH1%xGzt3=pu
zM?IGqsR3X^TJd8}i+tR6r`KK%!LmB2T>1OkiZpxRX>^m1Vf+c+_@KLb9~~!0laiwl
zSeU1;eF)hYnskOn^D0T;x0?=;K0C{|OL&^CXxQ1~;A{*=k{-W>YOUvXPLLQHDyV@`
z!}F%q<7K=Aa2vSz_FX(PN%{HJXTN6V-*1jT+)g)mEw%CK&2!|P)*R!WFwnY<c^+8a
zeKg=G=!~J;(M*ULL7{sfxNb4S#+kQ0?vpJXLoyn#8rMv7iEXFx{O8~MyMKQ4!$<n@
z{Xc&Go6X;Tkp1Paj~?ltpPJvj`>*=V<?@?1+s)Pfa>v}h`BlBDFL&GJ<#Jcg>m9$I
s6DZSVyq$0B^=ALJUIE6euYYoR{r36K|KT6C*7x||Z~5;({f~b2|DaqFy8r+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