创建您的第一个 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
  ___

编辑并运行代码