Začněte nyníZačněte zdarma

Mapa veřejných vysokých škol

Každý sektor můžeme přidat do mapy jako samostatnou vrstvu, čímž uživatelům umožníme vybrat, které sektory se na mapě zobrazí. K tomu využijeme nový argument funkce addCircleMarkers() — group.

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

Do mapy přidáme také funkci z knihovny htmltools. Obalení popisků funkcí htmlEscape() zajistí, že se speciální znaky nezpracují jako HTML. Díky tomu se názvy vysokých škol zobrazí správně, bez nechtěného formátování.

Barevná paleta pal, kterou jsi vytvořil/a v kapitole 2, je už načtená.

Toto cvičení je součástí kurzu

Interaktivní mapy s leaflet v R

Zobrazit kurz

Pokyny k cvičení

  • Načti balíček htmltools.
  • Vyfiltruj data ipeds tak, aby datový rámec obsahoval pouze veřejné vysoké školy.
  • Vytvoř leaflet mapu veřejných vysokých škol.
  • Přidej argument group do funkce addCircleMarkers().

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# 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
Upravit a spustit kód