开始使用免费开始使用

绘制公立院校地图

我们可以把每个院校类型作为一个图层添加到地图中，让用户自行选择要显示的类型。为此，您将使用 addCircleMarkers() 函数的新参数 group。

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

我们还会引入 htmltools 库中的一个功能。用 htmlEscape() 函数包裹标签，可以清理那些可能被解释为 HTML 的字符。这样可以避免院校名称出现非预期的格式。

第 2 章中创建的调色板 pal 已为您加载。

本练习是课程的一部分

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

查看课程

练习说明

  • 加载 htmltools 包。
  • 过滤 ipeds 数据，仅保留公立院校，生成一个数据框。
  • 创建一个公立院校的 leaflet 地图。
  • 在 addCircleMarkers() 中添加 group 参数。

交互式实操练习

通过完成这段示例代码来试试这个练习。

# 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
编辑并运行代码