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

#17

06-risques.Rmd

@@ -32,10 +32,23 @@ departement <- importer_data(table="n_departement_exp_r52", schema="adminexpress
 ```{r, echo=FALSE, warning=FALSE, message=FALSE}
 ggplot() +
 geom_sf(data=departement, fill = "White") +
-  geom_sf(data=ied, color="Grey", shape=8, size = 0.2) +
-geom_sf(data=seveso, shape=17, aes(color=statutseveso), size = 1)   +
-  scale_color_manual(values = c("Seveso seuil haut" = "Red", "Seveso seuil bas" = "Green"))  +
-  labs(title ="Sécurité des installations industrielles en Pays de la Loire", caption = paste("Source : ©IGN, DREAL Pays de la Loire, Date: ", Sys.Date()))
+   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()
   
 ```