diff --git a/06-risques.Rmd b/06-risques.Rmd index 10c4649b6843ccee9d735d60b6833e70f90de3b0..e0e850ae9e52e02e3711642512a20a2180171162 100644 --- a/06-risques.Rmd +++ b/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