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

Нанесение государственных и частных колледжей на карту

Частные колледжи добавляются на карту точно так же, как и государственные. Затем с помощью функции addLayersControl() и аргумента overlayGroups можно предоставить пользователям возможность отображать государственные и/или частные колледжи. Аргумент overlayGroups принимает вектор групп, заданных при создании слоёв (то есть государственных и частных колледжей). Для справки: вот как добавить государственные колледжи на карту в виде слоя:

# Create data frame called public with only public colleges
public <- filter(ipeds, sector_label == "Public")  

# Add public colleges as a layer and save map as `m3`
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, radius = 2, 
                         label = ~htmlEscape(name),
                         color = ~pal(sector_label),
                         group = "Public") %>% 
        addLayersControl(overlayGroups = c("Public"))

Библиотека htmltools, цветовая палитра pal и карта m3 с государственными колледжами уже загружены.

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

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

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

Инструкции к упражнению

  • Отфильтруйте данные ipeds, чтобы получить таблицу только с частными колледжами.
  • Добавьте частные колледжи в m3 в виде нового слоя.
  • Используйте функцию addLayersControl() с аргументом overlayGroups, чтобы пользователи могли переключать отображение государственных и частных колледжей.

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

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

# Create data frame called private with only private colleges
private <- filter(ipeds, sector_label == "___")  

# Add private colleges to `m3` as a new layer
m3 <- m3 %>% 
        ___(data = private, radius = 2, label = ~htmlEscape(name),
                         color = ~pal(sector_label), group = "Private") %>% 
        ___(___ = c("Public", "Private"))

m3
Редактировать и запускать код