서울시 공공 wifi 시각화

서울 공공 wifi 현황 데이터를 가져와 좌표 체계 WGS84로 전환한 이후에 이를 기반으로 몇 가지 시각화를 해봤다. 

library(ggplot2)
wifi_new <- read.csv("http://dl.dropboxusercontent.com/u/8686172/wifi_wgs_euc_kr.csv",
    encoding = "EUC-KR")

ggplot(wifi_new, aes(x = factor(1))) + geom_bar(aes(fill = INSTL_DIV), width = 1) +
    coord_polar(theta = "y") + xlab("") + ylab("")

plot of chunk unnamed-chunk-2

위 그래프를 보면 꼭히 시장 점유율대로 공공에 지원하는게 아님을 알 수 있다. 

library(ggmap)

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

bmap <- ggmap(get_navermap(center = cent, level = 6, baselayer = "default",
    overlayers = c("anno_satellite"), marker = data.frame(cent[1], cent[2]),
    key = "c75a09166a38196955adee04d3a51bf8", uri = "www.r-project.org"), extent = "device",
    base_layer = ggplot(wifi_new, aes(x = LON, y = LAT, colour = INSTL_DIV)))

bmap + geom_point() + geom_density2d() + facet_wrap(~INSTL_DIV)

plot of chunk _ggmap

LGU+와 SKT 정도만 좀더 넓은 영역에 wifi를 잘 배치해 놓은 것을 볼 수 있다. 

ggplot(wifi_new, aes(CATEGORY)) + geom_bar(aes(fill = INSTL_DIV))

plot of chunk unnamed-chunk-3 

ggplot(wifi_new, aes(INSTL_DIV)) + geom_bar(aes(fill = CATEGORY))

plot of chunk unnamed-chunk-3

각 기관별 공공 wifi 배치 정책도 살짝 엿볼 수 있다.

  • KT는 관광명소
  • SKT는 공원
  • LGU+는 주요거리
  • 서울시는 공공청사
0 0 votes
Article Rating
Subscribe
Notify of
guest

2 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
레모나

블로그에서 좋은정보 얻고있습니다
강사님 강의도 들었었는데 열정이 참부럽고 영감도 많이 받았습니다^^
그런데 ggmap은 위경도 좌표계로 꼭 변환이 필요한가요?카텍좌표계 등은 옵션으로도 지원이 안되는건가요?

0
Reply
김태경

안녕하세요! 책을 통해 공부하다가 맨 첫페이지의 주소를 보고 찾아왔습니다^^
정말 감사합니다

Error in readPNG(paste0(“ggmapFileDrawer/”, destfile)) :
file is not in PNG format

이런 메시지와함께 데이터는 표시가 되는데
지도위에 그려지지 않는 상황입니다 ㅠ

0
Reply