서울시 지도 R 프로그램

KDG

library(readxl)
library(ggmap)
## 필요한 패키지를 로딩중입니다: ggplot2
## ℹ Google's Terms of Service: <https://mapsplatform.google.com>
##   Stadia Maps' Terms of Service: <https://stadiamaps.com/terms-of-service/>
##   OpenStreetMap's Tile Usage Policy: <https://operations.osmfoundation.org/policies/tiles/>
## ℹ Please cite ggmap if you use it! Use `citation("ggmap")` for details.
library(dplyr)
## 
## 다음의 패키지를 부착합니다: 'dplyr'
## 
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## 
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggplot2)
data<- read_excel("C:/Rsample/복지관1.xlsx")
str(data)
## tibble [266 × 9] (S3: tbl_df/tbl/data.frame)
##  $ idx   : num [1:266] 1 2 3 4 5 6 7 8 9 10 ...
##  $ sido  : chr [1:266] "서울" "서울" "서울" "서울" ...
##  $ city  : chr [1:266] "강남구" "강남구" "강남구" "강남구" ...
##  $ name  : chr [1:266] "강남장애인복지관" "강남세움복지관" "성모자애복지관" "청음복지관" ...
##  $ addr  : chr [1:266] "강남구 개포로 605" "강남구 광평로60길 22" "강남구 헌릉로757길 35" "강남구 봉은사로50길 6" ...
##  $ tel   : chr [1:266] "02-445-8006" "02-2184-8700" "02-3411-9581" "02-556-3493" ...
##  $ member: num [1:266] 30 47 46 34 57 35 90 32 40 31 ...
##  $ lonX  : num [1:266] 127 127 127 127 127 ...
##  $ latY  : num [1:266] 37.5 37.5 37.5 37.5 37.5 ...
register_google(key="AIzaSyBDSAqpeWrydo385GZdMsloBsYkfj5GaJE")
tail(data$lonX,15)
##  [1] 126.5846 126.5813 126.4256       NA       NA       NA       NA       NA
##  [9]       NA       NA       NA       NA       NA       NA       NA
tail(data$lonX[order(data$lonX,decreasing = TRUE)],15)
##  [1] 126.3880 126.3025 126.2587       NA       NA       NA       NA       NA
##  [9]       NA       NA       NA       NA       NA       NA       NA
#datat$lonX 기준으로 내림차순 정렬하여 레코드 하위 15개 출력
tail(data[order(data$lonX,decreasing = TRUE),],15)
## # A tibble: 15 × 9
##      idx sido  city     name                      addr  tel   member  lonX  latY
##    <dbl> <chr> <chr>    <chr>                     <chr> <chr>  <dbl> <dbl> <dbl>
##  1   192 전북  무주군   무주장애인종합복지관      전북특별… 063-…     20  126.  34.8
##  2   178 충남  서천군   서천군 장애인종합복지관   충남 서… 041-…     24  126.  36.7
##  3   208 전남  목포시   목포시장애인종합복지관    전남 목… 061-…     26  126.  34.5
##  4   255 경남  창원시   진해장애인복지관          경남 창… 055-…     20   NA   NA  
##  5   256 경남  통영시   통영시장애인종합복지관    경상남도… 055-…     26   NA   NA  
##  6   257 경남  하동군   하동군노인장애인종합복지관…… 경상남도… 055-…     19   NA   NA  
##  7   258 경남  함안군   함안군장애인재활센터      경남 함… 055-…      3   NA   NA  
##  8   259 경남  함양군   함양군장애인복지센터      경남 함… 055-…      5   NA   NA  
##  9   260 경남  합천군   합천군장애인복지센터      경상남도… 055-…      4   NA   NA  
## 10   261 제주  서귀포시 서귀포시장애인종합복지관  제주특별… 064-…     46   NA   NA  
## 11   262 제주  제주시   제주도농아복지관          제주특별… 064-…     33   NA   NA  
## 12   263 제주  제주시   우리복지관                제주시 … 064-…     29   NA   NA  
## 13   264 제주  제주시   탐라장애인종합복지관      제주시 … 064-…     64   NA   NA  
## 14   265 제주  제주시   제주특별자치도장애인종합복지관…… 제주시 … 064-…     52   NA   NA  
## 15   266 제주  제주시   제주시각장애인복지관      제주특별… 064-…     31   NA   NA
strK <- "서울특별시"
location=geocode(strK)
## ℹ <https://maps.googleapis.com/maps/api/geocode/json?address=%EC%84%9C%EC%9A%B8%ED%8A%B9%EB%B3%84%EC%8B%9C&key=xxx>
markers_data <- data.frame(lon=location$lon,lat=location$lat)
gg_map <- get_googlemap(strK,maptype = "roadmap",zoom = 15,markers=markers_data)
## ℹ <https://maps.googleapis.com/maps/api/staticmap?center=%EC%84%9C%EC%9A%B8%ED%8A%B9%EB%B3%84%EC%8B%9C&zoom=15&size=640x640&scale=2&maptype=roadmap&markers=37.550263,126.997083&key=xxx>
## ℹ <https://maps.googleapis.com/maps/api/geocode/json?address=%EC%84%9C%EC%9A%B8%ED%8A%B9%EB%B3%84%EC%8B%9C&key=xxx>
ggmap(gg_map)