Récupérer une carte d’arrière-plan
Il y a deux étapes pour ajouter une carte à un graphique ggplot2 avec ggmap :
- Télécharger une carte avec
get_map() - Afficher la carte avec
ggmap()
À titre d’exemple, récupérons une carte pour New York :
library(ggmap)
nyc <- c(lon = -74.0059, lat = 40.7128)
nyc_map <- get_map(location = nyc, zoom = 10)
get_map() possède plusieurs arguments qui déterminent le type de carte à récupérer, mais pour l’instant vous utiliserez surtout les valeurs par défaut. L’argument le plus important est le premier, location, dans lequel vous pouvez fournir un couple de coordonnées longitude/latitude indiquant le centre de la carte. (Nous les avons trouvées pour NYC via une recherche rapide sur Google : « coordinates nyc ».) L’argument suivant, zoom, prend un entier entre 3 et 21 et contrôle le niveau de zoom de la carte. Dans cet exercice, vous définirez un troisième argument, scale, égal à 1. Cela contrôle la résolution des cartes téléchargées ; vous la réduisez (la valeur par défaut est 2) pour accélérer le téléchargement.
Afficher la carte est ensuite aussi simple que d’appeler ggmap() avec la carte téléchargée comme unique argument : ggmap(nyc_map)
À vous de jouer ! Nous allons examiner des ventes de maisons à Corvallis, mais vous ne savez probablement pas où cela se trouve. Découvrons-le.
Cet exercice fait partie du cours
Visualiser des données géospatiales avec R
Instructions
Nous avons préparé pour vous un couple de coordonnées nommé corvallis. Récupérez une carte centrée sur Corvallis aux niveaux de zoom suivants et utilisez ggmap() pour tracer chacune d’elles. N’oubliez pas de définir scale = 1 pour réduire le temps de téléchargement.
zoom = 5(Corvallis se trouve dans l’État de l’Oregon, sur la côte Ouest des États‑Unis.)zoom = 13(La rivière Willamette traverse la ville, et Corvallis abrite l’Oregon State University.)
Exercice interactif pratique
Essayez cet exercice en complétant cet exemple de code.
corvallis <- c(lon = -123.2620, lat = 44.5646)
# Get map at zoom level 5: map_5
map_5 <- get_map(___, zoom = ___, scale = 1)
# Plot map at zoom level 5
ggmap(___)
# Get map at zoom level 13: corvallis_map
corvallis_map <- ___
# Plot map at zoom level 13