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

Карта всех колледжей

Продолжаем добавлять слои: теперь добавим коммерческие колледжи на карту leaflet, сохранённую в объекте m3.

После того как вы выведете карту m3 с помощью print() — с государственными, частными и коммерческими колледжами в виде отдельных слоёв — попробуйте скрыть все три слоя и добавить их обратно в другом порядке.

Секторы колледжей отображаются на карте в том порядке, в котором вы их выбираете: последний выбранный сектор окажется поверх остальных.

Цветовая палитра pal и карта m3 с государственными и частными колледжами уже загружены для вас.

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

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

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

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

  • Отфильтруйте данные ipeds, чтобы получить таблицу только с коммерческими колледжами, и сохраните её в переменную profit.
  • Создайте карту leaflet с государственными, частными и коммерческими колледжами.
  • Используйте функцию addLayersControl() и аргумент overlayGroups, чтобы пользователи могли включать и отключать все три сектора колледжей.
  • Отцентрируйте карту на середине США и установите уровень масштабирования равным 4.

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

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

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

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

# Center the map on the middle of the US with a zoom of 4
m4 <- m3 %>%
        ___(lat = 39.8282, lng = -98.5795, zoom = 4) 
        
m4
Редактировать и запускать код