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

Легендарная карта

Цветовое кодирование данных на карте — отличный приём, но он работает только тогда, когда мы помним, что означает каждый цвет. Функция addLegend() позволяет добавить легенду, которая напомнит об этом.

Легенду можно настраивать с помощью нескольких аргументов: opacity, title и position. Чтобы создать легенду для нашего примера с colorNumeric(), используйте следующий код.

pal <- colorNumeric(palette = "RdBu", domain = c(25:50))

ipeds %>% 
    leaflet() %>% 
        addProviderTiles("CartoDB")  %>% 
        addCircleMarkers(radius = 2,
                         color = ~pal(lat)) %>% 
         addLegend(pal = pal,
                   values = c(25:50),
                   opacity = 0.75,
                   title = "Latitude",
                   position = "topleft")

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

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

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

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

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

# Add a legend that displays the colors used in pal
m %>% 
    ___(pal = pal, 
              values = c("Public", "Private", "For-Profit"))
Редактировать и запускать код