最终地图
由于我们的 leaflet 地图是按图层构建的，您可以在同一底图上叠加不同类型的信息（例如点和多边形）。当基于不同数据向已有的 leaflet 对象添加新图层时，必须在创建新图层的函数中通过 data 参数显式指定数据，以覆盖通过管道传递的默认数据。
m4 %>%
addCircleMarkers(data = private)
让我们把点图层和多边形图层结合起来，在包含全美高校的地图上，新增一个高亮显示全美最富裕邮政编码的图层。为方便起步，上一版本的高校分层地图对象 m4 已为您打印，wealthy_zips（SpatialPolygonsDataFrame）也已预加载。
创建好最终地图后，请花几分钟时间探索并欣赏您的 leaflet 地图吧！
本练习是课程的一部分
在 R 中使用 leaflet 构建交互式地图
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Add polygons using wealthy_zips
final_map <- ___ %>%
addPolygons(data = ___, weight = 1, fillOpacity = .5, color = "Grey", group = "Wealthy Zip Codes",
label = ~paste0("Mean Income: ", dollar(mean_income)),
highlight = highlightOptions(weight = 5, color = "white", bringToFront = TRUE)) %>%
# Update layer controls including "Wealthy Zip Codes"
addLayersControl(baseGroups = c("OSM", "Carto", "Esri"),
overlayGroups = c("Public", "Private", "For-Profit", ___))