서울시 지도 R 프로그램

Choi Young Won.

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")
register_google(key="AIzaSyBDSAqpeWrydo385GZdMsloBsYkfj5GaJE")
strK <-"서울역"
location = geocode(strK)
## ℹ <https://maps.googleapis.com/maps/api/geocode/json?address=%EC%84%9C%EC%9A%B8%EC%97%AD&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%EC%97%AD&zoom=15&size=640x640&scale=2&maptype=roadmap&markers=37.555946,126.972317&key=xxx>
## ℹ <https://maps.googleapis.com/maps/api/geocode/json?address=%EC%84%9C%EC%9A%B8%EC%97%AD&key=xxx>
ggmap(gg_map)