Leaflet을 이용한 지도 시각화

R의 Leaflet을 이용하여 지도를 시각화 해보자.

 

우리나라의 행정구역을 시각화 할 것이다. 여기(www.gisdeveloper.co.kr/?p=2332)에서 얻은 2020년 5월의 시군구 행정구역 데이터를 이용할 것이다.

 

In:

library(leaflet)
library(raster)
library(htmltools)

data_map = shapefile('../input/SIG.shp')

 

▷ leaflet은 지도의 시각화를 위해, raster은 확장자가 shp인 파일을 불러오기 위해, htmltools는 시각화된 지도 위에 나타나는 텍스트를 수정하기 위해서 사용할 것이다.

 

In:

head(data_map@data)
head(data_map@plotOrder)
# head(data_map@polygons)

 

Out:

> head(data_map@data)
  SIG_CD    SIG_ENG_NM SIG_KOR_NM
0  11110     Jongno-gu     종로구
1  11140       Jung-gu       중구
2  11170    Yongsan-gu     용산구
3  11200  Seongdong-gu     성동구
4  11215   Gwangjin-gu     광진구
5  11230 Dongdaemun-gu   동대문구
> head(data_map@plotOrder)
[1] 125 133 207 128 205 211

 

▷ 불러온 파일은 S4 객체이기 때문에 @를 사용하여 하위요소에 접근할 수 있다.

 

▷ data의 각 행은 각 지역에 대한 정보를 담고 있다. plotOrder은 각 지역에 대한 번호이다. polygons는 plotOrder에 해당하는 지역의 위치를 나타내기 위한 좌표에 대한 정보를 담고 있다. 하나의 지역당 약 1,000개의 좌표로 구성되어 있기 때문에 실행하지는 않았다.

 

In:

data_map = spTransform(data_map, CRSobj = CRS('+proj=longlat +datum=WGS84'))

data_map@data$SIG_CD = as.numeric(data_map@data$SIG_CD) 

vec_label = data_map$SIG_KOR_NM

vec_popup = paste0('<b>', '이름: ', '</b>', data_map@data$SIG_KOR_NM, '<br>', 
                   '<b>', '지역번호: ', '</b>', data_map@data$SIG_CD) %>% 
  lapply(HTML)

pal_SIG_CD <- colorNumeric('YlOrRd', domain = data_map@data$SIG_CD)

 

▷ 행정구역 데이터는 GRS80 좌표계를 사용하므로, leaflet을 이용한 지도 시각화를 하기 위해서는 WGS84 좌표계로 변환해야주야 한다. 따라서 spTransform()을 이용하여 변환하였다.

 

▷ 지도 위에 나타나는 각 지역의 색깔을 해당 지역의 번호에 따라 다르게 하기 위해서 데이터 타입을 숫자로 변환하였다.

 

▷ vec_label과 vec_popup은 지역을 선택할 때, 해당 지역의 정보를 나타내 주기 위하여 만들었다.

 

▷ pal_SIG_CD는 지역별 색깔에 대한 정보를 담고 있는 객체이다.

 

In:

leaflet(data_map) %>% 
  addTiles() %>% 
  addPolygons(color = 'black', 
              weight = 1, 
              stroke = T, 
              fillOpacity = 0.5, 
              label = vec_label, 
              popup = vec_popup,
              fillColor = ~pal_SIG_CD(SIG_CD), 
              highlight = highlightOptions(
                weight = 2.5))

 

Out:

 

▷ 해당 지역에 위치에 커서를 올리면 지역의 이름이 뜨고, 지역을 클릭하면 이름과 지역번호에 대한 정보가 나오도록 시각화 하였다.

 

▷ 지역별 지역번호에 따라 색깔이 달라지는 것을 확인할 수 있다. 이때, 지도의 정보를 담고 있는 S4 객체의 data와 다른 정보를 합치면 지역번호뿐만 아니라 인구수, 가구수 등의 다양한 응용이 가능하다.