建立你的第一個 leaflet 地圖

你已經看到 leaflet 地圖可以由多個不同的圖層組成。

另外也有其他設定，能讓使用者選擇特定圖層與地圖供應商。

在這個練習中，你會建立一個包含多種功能的 leaflet 地圖。

這裡已經存有 4 個 sf 物件：

london_poly
london_loop
london_capital
listings_geo

你可以用 $geometry 標記法查看每個 sf 物件的幾何屬性。

已載入 sf、tidyverse 和 leaflet 函式庫。

本練習屬於課程

使用 shinydashboard 建立儀表板

檢視課程

練習說明

加入另一個提供者 Esri.WorldStreetMap。
加入紅色多邊形。
完成 addLayersControl()，讓使用者可以選擇不同的疊加群組與圖層，並依出現順序加入。

動手互動練習

試著完成這個範例程式碼，體驗一下這個練習。

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
  ___

編輯並執行程式碼