始める無料で始める

全米の大学をマッピングする

それでは、レイヤーをさらに重ねて、m3オブジェクトに保存されているleafletマップに営利大学（for-profit）を追加しましょう。

公立・私立・営利大学をそれぞれ独立したレイヤーとして表示したm3マップをprint()で確認したら、3つのレイヤーをすべて外し、別の順序で地図に追加し直してみてください。

異なるセクターは、指定した順序でレイヤーとしてマップに戻されます（つまり、最後に選んだセクターが最前面になります）。

カラーパレットpalと、公立・私立大学を含むm3マップはあらかじめ用意されています。

この演習はコースの一部です

R で作る leaflet のインタラクティブマップ

コースを見る

演習の手順

  • ipedsデータをフィルタして営利大学のみのデータフレームを作り、profitに代入します。
  • 公立・私立・営利大学のleafletマップを作成します。
  • addLayersControl()関数のoverlayGroups引数を使って、3つのセクターをトグル切り替えできるようにします。
  • 米国の中央に地図をセンタリングし、ズームレベルを4に設定します。

実践的なインタラクティブ演習

このサンプルコードを完成させて、この演習に挑戦してみましょう。

# Create data frame called profit with only For-Profit colleges
___ <- filter(ipeds, sector_label == "For-Profit")  

# Add For-Profit colleges to `m3` as a new layer
m3 <- m3 %>% 
        addCircleMarkers(data = ___, radius = 2, label = ~htmlEscape(name),
                         color = ~pal(sector_label),   group = "___")  %>% 
        addLayersControl(overlayGroups = c("Public", "Private", "___"))  

# Center the map on the middle of the US with a zoom of 4
m4 <- m3 %>%
        ___(lat = 39.8282, lng = -98.5795, zoom = 4) 
        
m4
コードを編集して実行