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

Итоговая карта

Поскольку карта leaflet строится послойно, на одну базовую карту можно добавлять разные типы данных — например, точки и полигоны. Когда новый слой основан на других данных, отличных от тех, что передаются по цепочке функций, необходимо явно указать аргумент data в функции, создающей этот слой.

m4  %>% 
    addCircleMarkers(data = private)

Давайте объединим карту точек и карту полигонов: добавим слой с самыми состоятельными почтовыми индексами Америки поверх карты всех колледжей страны. В качестве отправной точки последняя версия карты колледжей m4 уже выведена на экран, а объект wealthy_zips типа SpatialPolygonsDataFrame предварительно загружен.

Создав итоговую карту, уделите несколько минут её изучению — исследуйте результат вашей работы!

Это упражнение является частью курса

Интерактивные карты с leaflet в R

Посмотреть курс

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

# Add polygons using wealthy_zips
final_map <- ___ %>% 
   addPolygons(data = ___, weight = 1, fillOpacity = .5, color = "Grey",  group = "Wealthy Zip Codes", 
              label = ~paste0("Mean Income: ", dollar(mean_income)),
              highlight = highlightOptions(weight = 5, color = "white", bringToFront = TRUE)) %>% 
    # Update layer controls including "Wealthy Zip Codes"
    addLayersControl(baseGroups = c("OSM", "Carto", "Esri"), 
                         overlayGroups = c("Public", "Private", "For-Profit", ___))
Редактировать и запускать код