▶R로만드는 데이터시각화 :: 대한민국 wifi 시각화

▶R로만드는 데이터시각화 :: 대한민국 wifi 시각화

공공데이터포털의 wifi데이터를 바탕으로 전국 wifi에 대한 시각화를 해보았습니다.

library(ggmap)
library(ggplot2)

먼저 오늘 사용할 패키지를 불러옵니다.

korea_wifi <- read.csv("wifi.korea.csv", sep=",", header=TRUE)

전체 wifi데이터를 불러옵니다.

str(allwifi)

구성요소를 살펴보면 288761행을 갖고있습니다.

CCB 는 공공/지자체/KT/SKT/LGT 로 나뉩니다.

LON, LAT은 위경도를 나타내며 WIFI가 설치된 위치를 나타냅니다.

SI_NM 시군구 이름을 나타냅니다.

SVC_SE WIFI 용도를 나타내는데 용도정보가 없는 와이파이도 많습니다.

먼저 오늘 사용목적에 따라서 데이터를 부분부분 나누어 보겠습니다.

public <- subset(korea_wifi, CCB == "공공", select = c("LON", "LAT", "SVC_SE", "SI_NM"))

전체 WIFI중에서 공공와이파이만 따로 뽑아내고 공공와이파의 위경도데이터와 용도, 시군구 열만 추출합니다.

str(public)

확인해보면 위에서 설정한대로 정보가 추출되어잇는 것을 볼 수 있습니다.

cent <- c(lon=127.8, lat=35.8)
map <- ggmap(get_googlemap(center = cent, zoom=7, maptype='roadmap', color='bw', scale='2'), extent='device')

cent에서 지도의 중심위치를 설정합니다.

그 뒤로 나우는 zoom, maptype 등의 옵션은 변경가능합니다.

map + geom_point(data=public, aes(x=LON, y=LAT), colour = 'gray10', alpha=0.1)

만들어 놓은 map위에 geom_point()기능을 이용하여 점을 찍어줍니다.

data는 미리 분류한 public(공공wifi)을 사용합니다.

marker들의 분포를 이해라 수 있도록 alpha값을 이용하여 투명도를 지정해줍니다.

아까 사용했던 전국 wifi지도를 활용하면 다양한 컨텐츠가 가능합니다.

 다양한 것들을 만들어 볼 수 있습니다.

여기에 조금 더하여

프로세싱으로 작업을 해보았습니다.