始める無料で始める

公立大学をマッピングする

各セクターをレイヤーとして地図に追加すると、ユーザーが表示するセクターを選べるようになります。そのために、addCircleMarkers() 関数の新しい引数である group を使います。

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

ここでは、htmltools ライブラリの機能も地図に取り入れます。ラベルを htmlEscape() 関数で包むと、HTML と解釈されうる文字をサニタイズできます。これにより、大学名が意図しない書式で表示されるのを防げます。

Chapter 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
コードを編集して実行