diff --git a/06-risques.Rmd b/06-risques.Rmd index 228a3d1de46f050f6fa7570964be18dd74889ad6..e0e850ae9e52e02e3711642512a20a2180171162 100644 --- a/06-risques.Rmd +++ b/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() ```