project_html

서울시 공공와이파이 설치 분석

library(readr)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(leaflet)

wifi <- read_csv('seoul_wifi.csv', locale = locale(encoding='CP949'))

## Rows: 26202 Columns: 16

## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr  (12): 관리번호, 자치구, 와이파이명, 도로명주소, 상세주소, 설치위치(층), 설치유형, 설치기관, 서비스구분, 망종류, 실...
## dbl   (3): 설치년도, Y좌표, X좌표
## dttm  (1): 작업일자
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

wifi_map <- select(wifi, 자치구, 와이파이명, 도로명주소, Y좌표, X좌표)

wifi_map <- wifi_map %>% rename( )

wifi_map

## # A tibble: 26,202 × 5
##    자치구   와이파이명                   도로명주소                  Y좌표 X좌표
##    <chr>    <chr>                        <chr>                       <dbl> <dbl>
##  1 중구     서울시청 서소문제1청사       덕수궁길 15                  37.6  127.
##  2 성동구   성동구청 송정동 공공복합청사 송정18가길 9                 37.6  127.
##  3 성동구   성동구청 송정동 공공복합청사 송정18가길 9                 37.6  127.
##  4 강동구   강동리본센터                 강동구 양재대로81길 73       37.5  127.
##  5 강동구   강동리본센터                 강동구 양재대로81길 73       37.5  127.
##  6 용산구   용산 청소년복합문화공간      용산구 한남동 90-4 B1층      37.5  127.
##  7 용산구   용산 청소년복합문화공간      용산구 한남동 90-4 B1층      37.5  127.
##  8 동대문구 동대문구 보건소              서울특별시 동대문구 천호대로 145(용두동)……  37.6  127.
##  9 동대문구 동대문구 보건소              서울특별시 동대문구 천호대로 145(용두동)……  37.6  127.
## 10 서대문구 서울아리수본부               서소문로 51                  37.6  127.
## # ℹ 26,192 more rows

wifi_count <- wifi_map %>%
  count(자치구, sort = TRUE)

wifi_count

## # A tibble: 26 × 2
##    자치구     n
##    <chr>  <int>
##  1 강서구  1801
##  2 중구    1538
##  3 노원구  1277
##  4 구로구  1250
##  5 성동구  1194
##  6 양천구  1185
##  7 강동구  1163
##  8 마포구  1163
##  9 은평구  1132
## 10 송파구  1120
## # ℹ 16 more rows

barplot(wifi_count$n,
        names.arg = wifi_count$자치구,
        las = 2,
        col = "skyblue",
        main = "자치구별 공공와이파이 개수",
        xlab = "자치구",
        ylab = "설치 개수")

Including Plots

You can also embed plots, for example:

leaflet(data=wifi_map) %>% addTiles() %>%
          addCircleMarkers(
            lng = ~X좌표,
            lat =  ~Y좌표,
            radius = 3,
            color = 'blue',
            stroke = FALSE,
            fillOpacity = 0.6,
            popup = ~paste0(
              "<b>자치구:</b> ", 자치구, "<br>",
              "<b>설치위치:</b> ", 와이파이명, "<br>",
              "<b>주소:</b> ", 도로명주소
            )
            )

분석결과 ; 공공장소에 집중설치, 도로변의 정류장에 설치됨