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

Картується державні коледжі

Ми можемо додати кожен сектор на нашу мапу як шар, щоб користувачі могли обирати, які сектори відображати. Для цього скористаємося новим аргументом функції addCircleMarkers(), який називається group.

leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, 
                         label = ~htmlEscape(name), 
                         group = "Public")

Ми також інтегруємо ще одну можливість на нашу мапу з бібліотеки htmltools. Обгортання підписів функцією htmlEscape() очистить символи, які можуть бути інтерпретовані як HTML. Це запобігатиме небажаному форматуванню назв коледжів.

Кольорова палітра pal, яку ми створили в Розділі 2, уже завантажена для вас.

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

Інтерактивні карти з leaflet у R

Переглянути курс

Інструкції до вправи

  • Імпортуйте пакет htmltools.
  • Відфільтруйте дані ipeds, щоб створити датафрейм лише з державними коледжами.
  • Створіть мапу leaflet для державних коледжів.
  • Додайте аргумент group до addCircleMarkers().

Інтерактивна практична вправа

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

# Load the htmltools package
___

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

# Create a leaflet map of public colleges called m3 
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = ___, radius = 2, label = ~htmlEscape(name),
                         color = ~pal(sector_label), ___ = "Public")

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