1. Lära sig
    2. /
  2. Courses
    3. /
  3. R で作る leaflet のインタラクティブマップ
Connected

exercise

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

公立大学を追加したのとまったく同じ方法で、私立大学も追加できます。続いて、addLayersControl() 関数の overlayGroups 引数を使うと、利用者が公立・私立の大学をそれぞれ表示・非表示に切り替えられるようになります。overlayGroups 引数には、レイヤー作成時に定義したグループ（ここでは公立と私立）をベクトルで渡します。復習として、公立大学をレイヤーとして地図に追加する方法を示します。

# 公立大学のみを含むデータフレーム public を作成
public <- filter(ipeds, sector_label == "Public")  

# 公立大学をレイヤーとして追加し、地図を `m3` として保存
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, radius = 2, 
                         label = ~htmlEscape(name),
                         color = ~pal(sector_label),
                         group = "Public") %>% 
        addLayersControl(overlayGroups = c("Public"))

htmltools ライブラリ、カラーパレット pal、そして公立大学を追加した地図 m3 はすでに読み込まれています。

Instruktioner

100 XP
  • ipeds データをフィルタして、私立大学のみのデータフレームを作成します。
  • 私立大学を新しいレイヤーとして m3 に追加します。
  • addLayersControl() 関数と overlayGroups 引数を使って、公立・私立レイヤーを切り替えられるようにします。