R을 이용한 서울시 도서관 위치 시각화

어제는 googleVis 패키지를 이용해서 지도 시각화를 했는데

더 간단하게 볼 수 있는 패키지가 있다.

leaflet 이다.

사용법도 너무나 간단하다.

패키지와 데이터 불러오기

library(tidyverse)
library(leaflet)

df <- read.csv("D:/R/data/서울시 공공도서관 현황정보.csv",header = T, fileEncoding = "euc-kr")

서울시 공공도서관 현황정보.csv

0.05MB

그리고 나서 위도, 경도와 마커 이름만 표시하면 된다.

df %>% rename(lat = 위도, lng = 경도) %>% 
  select(lng, lat, 도서관명) -> m

leaflet() %>%  
  addTiles() %>% 
  addMarkers(lng = m$lng, lat = m$lat, popup=m$도서관명)

그러면 서울시 공공 도서관 위치 시각화가 된다.

R 마크다운으로 다시 작성해봄