챕터 11 울릉도의 버스정류장

울릉도에는 버스정류장이 얼마나 있고 어디에 위치하고 있을까? datatoys의 busStation 데이터와 leaflet 패키지를 이용해 울릉도의 버스정류장을 분석해보자. busStation 데이터셋은 버스정보시스템(BIS)이 구축된 지자체 중 국가대중교통정보센터(TAGO)와 연계된 136개 지자체에 대한 버스정류장 위치정보 데이터를 제공한다.

library(datatoys)
library(leaflet)
library(dplyr)

busStation %>% 
  filter(도시명 == "울릉군") %>%
  leaflet() %>% 
  addTiles() %>% 
  addMarkers(~경도, ~위도, popup = ~as.character(정류장.명칭), label = ~as.character(정류장.명칭))