1 キャパス所在地（緯度・経度）データ

d <- read.csv(file = 'https://stats.dip.jp/01_ds/data/campus_location_TIU.csv')

library(DT)
datatable(d)

次のようにRチャンクのヘッダーで地図のサイズを指定できる。

  {r fig.height = 4, fig.width = 4}

2 GoogleMap

#install.packages('leaflet')
library(leaflet)

leaflet() |>
  addTiles() |> 
  addMarkers(lng = d$lng, lat = d$lat,
             popup = paste0(d$name, '<br>', d$address)) |> 
  addMiniMap(positio = 'topright') |>
  addScaleBar(position="bottomleft")

3 演習課題

池袋キャンパス，坂戸キャンパスの地点を追加しマップにプロットせよ。

  1. キャンパスの所在地住所を調べる。
  2. GoogleMapに住所を入力し検索
  3. 表示された地点マーカーを右クリックすると緯度・経度が表示される。
  4. CSVファイルにデータを追加する。