Draft: Resolve "Carte 10 Sécurité des installations industrielles"

#17

06-risques.Rmd

@@ -2,8 +2,57 @@
 
 
 ### Carte_10_Sécurité des installations industrielles_SRNT.pdf
-Données SRNT en cours de mise en base par Philippe
-Sémiologie ? vert foncé ressort
+
+Carte présentant la localisation des sites SEVESO seuil Haut et Bas, ainsi que les installations IED (Industriel Emissions Directive). Test
+
+[Ticket 17](https://gitlab-forge.din.developpement-durable.gouv.fr/dreal-pdl/csd/cartes.enjeux/-/issues/17)
+
+```{r, out.width="100%", echo=FALSE}
+knitr::include_graphics("https://www.pays-de-la-loire.developpement-durable.gouv.fr/IMG/png/carte_10_securite_des_installations_industrielles_srnt.png")
+
+```
+
+
+```{r, echo=FALSE,warning=FALSE, message=FALSE}
+library(tidyverse)
+library(datalibaba)
+library(knitr)
+library(glue)
+con_consultation <- datalibaba::connect_to_db(db = "consultation", user = "csd")
+```
+
+```{r, echo=FALSE, message=FALSE}
+seveso <- importer_data(table="n_icpe_seveso_p_r52", schema="site_industriel_production", db="consultation")
+ied <- importer_data(table="n_icpe_ied_p_r52", schema="site_industriel_production", db="consultation")
+departement <- importer_data(table="n_departement_exp_r52", schema="adminexpress", db="referentiels")
+```
+
+
+
+```{r, echo=FALSE, warning=FALSE, message=FALSE}
+ggplot() +
+geom_sf(data=departement, fill = "White") +
+   geom_sf(data = ied, aes(shape = "Installation IED", color = "Installation IED"), size = 0.8, show.legend = FALSE ) + 
+  
+  geom_sf(data = seveso, aes(color = statutseveso), shape = 17, size = 1) +  
+  
+  scale_color_manual(values = c(
+    "Installation IED" = "grey",  
+    "Seveso seuil haut" = "red", 
+    "Seveso seuil bas" = "green"
+  ),
+name = "Légende des installations" )+
+  
+  scale_shape_manual(values = c("Installation IED" = 8)) +  # Associe "Installation IED" à l'étoile 
+   
+  
+  labs(title ="Sécurité des installations industrielles en Pays de la Loire", caption = paste("Source : ©IGN, DREAL Pays de la Loire, Date: ", Sys.Date())) +
+  guides(shape = guide_legend(), color=guide_legend()) +
+  theme_minimal()
+  
+```
+
+
 
 ### Carte_11_Prévention des risques naturels littoraux et fluviaux_SRNT.pdf
 Données souvent en .shp, voir avec Philippe ce qui remonte de SRNT