开始使用免费开始使用

绘制公立与私立院校地图

我们可以像添加公立院校一样添加私立院校。然后使用 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 已为您加载好。

本练习是课程的一部分

在 R 中使用 leaflet 构建交互式地图

查看课程

练习说明

  • 过滤 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
编辑并运行代码