▶R로만드는 데이터시각화 :: ggmap응용 - 서울의 도서관 시각화

R로하는 데이터시각화 :: 네이버지도를 이용한 공간시각화

이번에 도전해 본 것은 서울공공데이터포털의 자료를

이용하여 네이버 맵 위에 그려보는 것 입니다.

http://freesearch.pe.kr/의 예제를 바탕으로

작성된 글임을 먼저 밝혀둡니다.

글

1. 데이터 다운로드

이번에 시각화 해 볼것은

앞서 말씀드린 것 처럼, 서울공공데이터포털의 자료입니다.

이곳에서 데이터를 다운로드받은 뒤,

불필요한 항목들은 지워버렸습니다.

그래서 아래와 같은 항목만 남겨두었습니다.

wifizone.csv

정리 된 데이터파일입니다.

이번 예제에서 사용되는 라이브러리는

'ggmap'과 'ggplot2'입니다.

library(ggplot2)

library(ggmap)

설치를 한뒤, 라이브러리를 불러옵니다.

wifizone <- read.csv("wifizone.csv", encoding = "EUC-KR")

그리고 정리해둔 CSV파일을 불러옵니다.

cent <- c(mean(wifizone$LON, wifizone$LAT))

그다음 지도의 중심이되는 좌표를

mean을 이용하여 설정해줍니다.

bmap <- ggmap(get_navermap(center = cent, level = 6, baselayer = "default",

+ overlayers = c("anno_satellite"), marker = data.frame(cent[1], cent[2])

+ key = "18ca44a6a8f5c386fd23a55ddb16e64a", uri = "www.r-project.org"), extent = "device",

+ base_layer = ggplot(wifizone, aes(x = LON, y = LAT, colour = FLY_GBN)))

ggmap으로 네이버맵을 가져오고,

cent로 지정해둔 지도의 가운데 지점을 설정하는 등 세부설정 부분입니다.

bmap + geom_point() =  geom_density2D() + facet_wrap(~FLY_GBN)

bmap을 바탕으로 출력을 해봅니다.

 이런 결과모습을 확인할 수 있었습니다.

 

다른 모습으로 바꿔보고 싶었는데요

한장의 지도위에 속성별로 다른색상의 점으로 나타내려고합니다.

bmap + geom_point(aes(colour=FLY_GBN))

이렇게 실행결과가 나왔습니다.

이것을 pdf로 저장한뒤 보정까지 해보겠습니다.