ПочатиПочніть безкоштовно

Фінальна карта

Оскільки наша карта leaflet побудована шарами, ми можемо додавати різні типи інформації до однієї базової карти (наприклад, точки та полігони). Коли ви додаєте нові шари на основі інших даних до наявного об'єкта leaflet, потрібно вказати аргумент data у функції, яка створює новий шар, щоб перевизначити дані, передані оператором конвеєра.

m4  %>% 
    addCircleMarkers(data = private)

Об'єднаємо наші карти з точками та полігонами, щоб додати шар, який підсвічує найзаможніші поштові індекси США, до карти з усіма коледжами країни. Щоб ви швидше розпочали, останню багатошарову версію карти коледжів m4 уже виведено для вас, а wealthy_zips SpatialPolygonsDataFrame попередньо завантажено.

Після створення фінальної карти приділіть кілька хвилин, щоб дослідити (і просто насолодитися) свою карту leaflet!

Ця вправа є частиною курсу

Інтерактивні карти з 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", ___))
Редагувати та запускати код