始める無料で始める

ポップアップの追加とマップの保存

マップをより情報豊かにするために、ポップアップを追加できます。マーカーをクリックしたときに表示されるポップアップを追加するには、addMarkers() 関数で popup 引数を指定します。残しておきたいマップができたら、オブジェクトに保存できます。その後は、このオブジェクトに関数をパイプして、マップのレイヤーを追加・編集できます。

dc_nyc <- 
    leaflet() %>% 
        addTiles() %>% 
        addMarkers(lng = -73.98575, lat = 40.74856, 
                   popup = "DataCamp - NYC") 

dc_nyc %>% 
    setView(lng = -73.98575, lat = 40.74856, 
            zoom = 2)

それでは、DataCamp の両拠点のマーカーにポップアップを追加し、マップをオブジェクトに保存してみましょう。

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

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

コースを見る

演習の手順

  • addMarkers() に popup 引数を追加して hq 列の値を表示し、leaflet マップを map というオブジェクトに保存します。
  • map の表示を Belgium HQ を中心、ズーム 5 に設定し、map_zoom に保存します。
  • map_zoom オブジェクトを出力します。

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

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

# Store leaflet hq map in an object called map
 ___ <- leaflet() %>%
          addProviderTiles("CartoDB") %>%
          # Use dc_hq to add the hq column as popups
          addMarkers(lng = dc_hq$lon, lat = dc_hq$lat,
                     popup = ___$___)

# Center the view of map on the Belgium HQ with a zoom of 5 
map_zoom <- ___ %>%
      setView(lat = 50.881363, lng = 4.717863,
              zoom = ___)

# Print map_zoom
___
コードを編集して実行