Zacznij terazZacznij za darmo

Pobieranie mapy w tle

Dodanie mapy do wykresu ggplot2 za pomocą ggmap składa się z dwóch kroków:

  1. Pobierz mapę funkcją get_map()
  2. Wyświetl mapę funkcją ggmap()

Dla przykładu pobierzmy mapę Nowego Jorku:

library(ggmap)

nyc <- c(lon = -74.0059, lat = 40.7128)
nyc_map <- get_map(location = nyc, zoom = 10)

Funkcja get_map() przyjmuje wiele argumentów kontrolujących rodzaj pobieranej mapy, ale na razie będziemy korzystać głównie z wartości domyślnych. Najważniejszy jest pierwszy argument – location – gdzie podajesz parę współrzędnych (długość i szerokość geograficzną) wyznaczających środek mapy. (Współrzędne dla Nowego Jorku można znaleźć, wyszukując w Google „coordinates nyc".) Kolejny argument, zoom, przyjmuje liczbę całkowitą od 3 do 21 i określa poziom przybliżenia mapy. W tym ćwiczeniu ustaw trzeci argument, scale, na wartość 1. Kontroluje on rozdzielczość pobieranych map – niższa wartość (domyślnie wynosi 2) skraca czas pobierania.

Aby wyświetlić mapę, wystarczy wywołać ggmap() z pobraną mapą jako jedynym argumentem: ggmap(nyc_map)

Teraz twoja kolej! Będziemy analizować sprzedaż nieruchomości w Corvallis – ale pewnie nie wiesz, gdzie to miasto leży. Czas to sprawdzić!

To ćwiczenie jest częścią kursu

Wizualizacja danych geoprzestrzennych w R

Zobacz kurs

Instrukcje do ćwiczenia

Przygotowaliśmy dla ciebie parę współrzędnych o nazwie corvallis. Pobierz mapę wyśrodkowaną na Corvallis dla poniższych poziomów przybliżenia i użyj funkcji ggmap(), aby wyświetlić każdą z nich. Pamiętaj, aby ustawić scale = 1, co skróci czas pobierania.

  • zoom = 5 (Corvallis leży w stanie Oregon na Zachodnim Wybrzeżu USA.)
  • zoom = 13 (Przez miasto przepływa rzeka Willamette, a Corvallis jest siedzibą Oregon State University.)

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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
Edytuj i uruchom kod