Skapa din första leaflet-karta

Du har sett hur leaflet-kartor kan skapas som en samling av olika lager.

Det finns också andra inställningar som låter användare välja specifika lager och kartleverantörer.

I den här övningen skapar du din egen leaflet-karta med olika funktioner.

Fyra sf-objekt finns lagrade här som:

london_poly
london_loop
london_capital
listings_geo

Du kan se geometriattributet för varje sf-objekt med notationen $geometry.

Biblioteken sf, tidyverse och leaflet har laddats in.

Den här övningen är en del av kursen

Bygga dashboards med shinydashboard

Visa kurs

Övningsinstruktioner

Lägg till ytterligare en kartleverantör med namnet Esri.WorldStreetMap.
Lägg till röda polygoner.
Fyll i addLayersControl() så att användaren kan välja olika överläggsgrupper och lager, och lägg till dem i den ordning de visas.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

leaflet(london_poly) %>% 
  addTiles(group="Default") %>%  
  addProviderTiles(providers$Stamen.Toner, group = "Toner") %>%
  # Add another provider called Esri.WorldStreetMap
  ___(___, group = "World street map") %>%
  # Add red polygons 
  ___(group = "Ward", col=___, label=~as.character(Name)) %>% 
  addPolylines(loop_geo[,1], loop_geo[,2], group = "London loop") %>%
  addPolylines(capital_geo[,1], capital_geo[,2],
               group = "Capital ring", color = "orange") %>%
    addMarkers(data = listings_geo,
             group = "Listings", clusterOptions = markerClusterOptions()) %>% 
  # Set up to allow user selection of different overlay groups and layers
  ___

Redigera och kör kod