最終地圖
因為 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", ___))