Skip to content
Snippets Groups Projects
Commit c528ce9b authored by Philippe.Terme's avatar Philippe.Terme
Browse files

fignolage legende

parent c954211e
No related branches found
No related tags found
1 merge request!5Draft: Resolve "Carte 10 Sécurité des installations industrielles"
Pipeline #503550 passed
...@@ -32,10 +32,23 @@ departement <- importer_data(table="n_departement_exp_r52", schema="adminexpress ...@@ -32,10 +32,23 @@ departement <- importer_data(table="n_departement_exp_r52", schema="adminexpress
```{r, echo=FALSE, warning=FALSE, message=FALSE} ```{r, echo=FALSE, warning=FALSE, message=FALSE}
ggplot() + ggplot() +
geom_sf(data=departement, fill = "White") + geom_sf(data=departement, fill = "White") +
geom_sf(data=ied, color="Grey", shape=8, size = 0.2) + geom_sf(data = ied, aes(shape = "Installation IED", color = "Installation IED"), size = 0.8, show.legend = FALSE ) +
geom_sf(data=seveso, shape=17, aes(color=statutseveso), size = 1) +
scale_color_manual(values = c("Seveso seuil haut" = "Red", "Seveso seuil bas" = "Green")) + geom_sf(data = seveso, aes(color = statutseveso), shape = 17, size = 1) +
labs(title ="Sécurité des installations industrielles en Pays de la Loire", caption = paste("Source : ©IGN, DREAL Pays de la Loire, Date: ", Sys.Date()))
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()
``` ```
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment