[14-02-28]

서울 공공 wifi현황 데이터를 살펴보자.

wifi_new <- read.csv("C:/Users/Byeongsoo/Desktop/R markdown/wifi_wgs_euc_kr.csv")
head(wifi_new)  # 번호, 구, 카테고리, 위치명, 설치기관, 위도, 경도 순이다.

##   X  GU_NM CATEGORY   PLACE_NAME INSTL_DIV   LAT LON
## 1 1 강남구 주요거리 과학기술원앞       SKT 37.50 127
## 2 2 강남구 주요거리       국기원       SKT 37.50 127
## 3 3 서초구     공원 반포한강공원        KT 37.51 127
## 4 4 강남구 주요거리   선릉역주변       SKT 37.51 127
## 5 5 강남구 주요거리   선릉역주변       SKT 37.50 127
## 6 6 강남구 주요거리   선릉역주변       SKT 37.50 127

summary(wifi_new)

##        X            GU_NM         CATEGORY                  PLACE_NAME 
##  Min.   :  1   광진구  :111   공공청사: 30   어린이대공원        : 89  
##  1st Qu.:172   중구    : 88   공원    :275   청계?               : 23  
##  Median :344   종로구  : 53   관광명소: 31   신촌이대주변        : 19  
##  Mean   :344   서초구  : 41   광장    : 32   강남역일대(교보거리): 16  
##  3rd Qu.:516   동대문구: 40   문화시설: 11   풍물시장            : 15  
##  Max.   :687   은평구  : 36   주요거리:269   대학로              : 14  
##                (Other) :318   주요시장: 39   (Other)             :511  
##   INSTL_DIV        LAT            LON     
##  KT    : 45   Min.   :37.5   Min.   :127  
##  LGU+  :322   1st Qu.:37.5   1st Qu.:127  
##  SKT   :273   Median :37.6   Median :127  
##  서울시: 47   Mean   :37.6   Mean   :127  
##               3rd Qu.:37.6   3rd Qu.:127  
##               Max.   :37.7   Max.   :127  
##

사실 베이스 레이어에 지도를 깔고, 그 위에 위경도를 이용해 점을 찍으면 될거라는 예상을 해본다.

library(ggmap)

## Loading required package: ggplot2

cent <- c(mean(wifi_new$LON), mean(wifi_new$LAT))
bmap <- ggmap(get_googlemap(center = cent, zoom = 11), extent = "device", base_layer = ggplot(wifi_new, 
    aes(x = LON, y = LAT, colour = INSTL_DIV)))

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=37.55694,126.999483&zoom=11&size=%20640x640&maptype=terrain&sensor=false
## Google Maps API Terms of Service : http://developers.google.com/maps/terms

bmap + geom_point()

## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <84>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9a>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <b8>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <8b>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <84>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9a>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <b8>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <8b>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <84>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9a>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <b8>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <8b>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>

plot of chunk unnamed-chunk-2

center는 지도의 중심을 어디로 둘 것인가를 의미한다.
zoom은 지도를 얼마나 상세하게 볼 것인가를 의미한다.
extent는 지도를 그래프 요소의 어느 부분에 올려둘 것인가를 정하는 데서 대부분 device로 한다.
base_layer파라미터는 객체들의 하위 레이어를 상속하기 위한 데이터와 미적객체의 매핑을 정의 할수 있게 하는 역할이다. 쉽게 말하면 ggplot을 공부 할 때, 밑바탕이 되는 레이어 역할이다.

수많은 포인트가 혼재돼 있어서 보기 힘드므로, facet_wrap을 사용해 기관별로 그래프를 그리고, 위치의 밀집도에 따른 밀도 그래프 레이어도 올려보자.

bmap + geom_density2d() + facet_wrap(~INSTL_DIV)

## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <84>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9a>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <b8>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <8b>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <84>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9a>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <b8>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <8b>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <84>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9a>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <b8>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <8b>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <84>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9a>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <b8>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <8b>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <84>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9a>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <b8>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <8b>
## Warning: conversion failure on '攼㹣꽌攼㹣슱攼㹣떆' in 'mbcsToSbcs': dot substituted for <9c>

plot of chunk unnamed-chunk-3

density2d가 바로 밀도 그래프를 그리는 미적객체이다. 등고선 같은 모습이다. 밀집도가 높을 수록 안쪽이다.
facet_warp의 ()안에 넣는 변수에 따라 그래프를 그리라는 명령어다.

내가 사는 곳은 대전, 대전에 대한 정보도 궁금하니까 대전 광역시의 wifi정보도 알아보자! 데이터는 data.go.kr에서 회원가입후 얻을 수 있다.

wifi_daejeon <- read.csv("C:/Users/Byeongsoo/Desktop/R markdown/대전와이파이.csv")
cent_daejeon <- c(mean(wifi_daejeon$LON), mean(wifi_daejeon$LAT))
bmap_daejeon <- ggmap(get_googlemap(center = cent_daejeon, zoom = 12, maptype = "satellite"), 
    extent = "device", base_layer = ggplot(wifi_daejeon, aes(x = LON, y = LAT, 
        colour = CCB)))

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=36.350421,127.388805&zoom=12&size=%20640x640&maptype=satellite&sensor=false
## Google Maps API Terms of Service : http://developers.google.com/maps/terms

bmap_daejeon + geom_point()

## Warning: Removed 263 rows containing missing values (geom_point).
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <a7>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <80>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <9e>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <90>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b2>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <a7>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <80>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <9e>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <90>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b2>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <a7>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <80>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <9e>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <90>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b2>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b4>

plot of chunk unnamed-chunk-4 

bmap_daejeon + geom_density2d() + facet_wrap(~CCB)

## Warning: Removed 125 rows containing non-finite values (stat_density2d).
## Warning: Removed 14 rows containing non-finite values (stat_density2d).
## Warning: Removed 118 rows containing non-finite values (stat_density2d).
## Warning: Removed 6 rows containing non-finite values (stat_density2d).
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <a7>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <80>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <9e>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <90>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b2>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <a7>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <80>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <9e>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <90>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b2>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <a7>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <80>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <9e>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <90>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b2>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <a7>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <80>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <9e>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <90>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b2>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <a7>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <80>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <9e>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <90>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b2>
## Warning: conversion failure on '吏€攼㹣옄泥戼㸴' in 'mbcsToSbcs': dot substituted for <b4>

plot of chunk unnamed-chunk-4

서울만큼 지도가 자세하지는 않아서 get_googlemap의 인자에 maptype을 satellite나 roadmap으로 변경해보았다.
근데 엄청난 밀집도를 자랑한다…와우

궁동을 한번봐볼까. 대전 데이터에서 subset을 이용해 궁동만 뽑아보자.

wifi_gungdong <- subset(wifi_daejeon, EMD_NM == "궁동")
cent_gungdong <- c(mean(wifi_gungdong$LON), mean(wifi_gungdong$LAT))
bmap_gungdong <- ggmap(get_googlemap(center = cent_gungdong, zoom = 15, maptype = "roadmap"), 
    extent = "device", base_layer = ggplot(wifi_gungdong, aes(x = LON, y = LAT, 
        colour = CCB)))

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=36.366598,127.346164&zoom=15&size=%20640x640&maptype=roadmap&sensor=false
## Google Maps API Terms of Service : http://developers.google.com/maps/terms

bmap_gungdong + geom_point() + ggtitle("궁동 와이파이존!") + theme(plot.title = element_text(size = 20, 
    colour = "BLUE")) + scale_color_hue("통신사") + theme(legend.title = element_text(size = 15))

## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ed>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <86>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <8b>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <a0>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <82>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ac>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ed>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <86>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <8b>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <a0>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <82>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ac>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b6>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <81>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <eb>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <8f>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <99>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <99>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <80>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <9d>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ed>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <8c>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <8c>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <9d>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <a1>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b6>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <81>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <eb>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <8f>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <99>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <99>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <80>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <9d>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ed>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <8c>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <8c>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <9d>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <a1>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ed>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <86>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <8b>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <a0>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <82>
## Warning: conversion failure on '攼㹤넻攼㹣떊攼㹣궗' in 'mbcsToSbcs': dot substituted for <ac>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b3>
## Warning: conversion failure on '怨듦났' in 'mbcsToSbcs': dot substituted for <b5>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ea>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b6>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <81>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <eb>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <8f>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <99>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <99>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <80>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <9d>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ed>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <8c>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <8c>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <9d>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b4>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <ec>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <a1>
## Warning: conversion failure on '沅곷룞 攼㹣㤼㸹€攼㹣씠攼㹤뙆攼㹣씠議戼㸴!' in 'mbcsToSbcs': dot substituted for <b4>

plot of chunk unnamed-chunk-5

roadmap으로 그려보니까 더 잘 보이는 것 같다. 신기방기하다.