« Programmer en R/Représenter une carte » : différence entre les versions
Contenu supprimé Contenu ajouté
Modifs |
|||
Ligne 32 :
subset(. , str_length(code_insee) == 2) %>%
plot()
</source>
Pour réaliser la carte avec la librairie <tt>ggplot2</tt>, il faut au préalable transformer le <tt>SpatialPolygonDataFrame</tt> en <tt>data frame</tt> à l'aide de la fonction <code>fortify</code>. Pour réaliser cette opération, il est nécessaire de charger les paquets rgeos, maptools et ggplot2.
<source lang="rsplus>
library(ggplot2)
library(rgeos)
library(maptools)
df_departement <- fortify(spdf_departement, region = "code_insee")
</source>
Comme dans l'exemple plus haut, on peut filtrer les départements de France métropolitaine avec la fonction str_length() du paquet stringr et la fonction filter du paquet dplyr.
<source lang="rsplus>
library(dplyr)
df_departement %>%
filter(str_length(id) == 2)
</source>
On réalise ensuite la carte avec ggplot() :
<source>
library(dplyr)
df_departement %>%
filter(str_length(id) == 2) %>%
ggplot() +
geom_polygon(
mapping = aes(x = long, y = lat, group = group),
color = "grey", fill = "white") +
coord_map(projection = "mercator") +
theme(axis.text = element_blank(),
axis.title = element_blank()) +
labs(title = "Carte des départements de France métropolitainee en 2014")
</source>
| |||