始める無料で始める

最終マップ

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", ___))
コードを編集して実行