НачатьНачать бесплатно

Создание первой карты leaflet

Вы уже видели, как карты leaflet создаются из нескольких слоёв.

Существуют и другие настройки, которые позволяют пользователям выбирать конкретные слои и поставщиков карт.

В этом упражнении вы создадите собственную карту leaflet с различными функциями.

Здесь хранятся четыре объекта sf:

  • london_poly
  • london_loop
  • london_capital
  • listings_geo

Вы можете просмотреть атрибут геометрии каждого объекта sf с помощью нотации $geometry.

Библиотеки 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
  ___
Редактировать и запускать код