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>Z`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