[R] 지도 데이터 활용하기

#설정하기
setwd("c:/Rdata")
getwd()

#필요한 library 활성화하기
library(dplyr)
library(ggmap)
library(rvest)

 

구글맵을 사용하기 위한 구글지도 API 키를 받아야 한다.

받은 키는 아래와 같이 작성한다.

register_google(key = "여기에 키 복붙하면 됨")

 

 

---

ex) 홍은동 지도 보기

get_map(location = '서울 서대문구 홍은동',
        zoom = 16,
        maptype = "hybrid", 
        source='google') %>% 
  ggmap()

 

---

ex) 서울 위경도 좌표 받기

geocode(location = '서울',
        output = 'latlon',
        source = 'google')

 

---

ex) 원하는 위치의 위경도 정보를 얻는 방법과 그 중심지점에 표시

myloc = geocode(location = '서울 수유역',
                output = 'latlon',
                source = 'google')
myloc
center=c(myloc$lon,myloc$lat)
center
qmap(location = center,
     zoom = 18,
     maptype = 'hybrid',
     source='google') + 
  geom_point(data = myloc,
             mapping = aes(x=lon,y=lat),
             shape='☆',
             color='red',
             stroke=19,size=10)

 

 

---

ex) 서울의 구청 위치 현황 지도에 표시하기

getmap = get_googlemap('seoul')
ggmap(getmap)

구청위치정보csv파일 불러오기

loc = read.csv("서울시구청위치정보.csv",
               header = T)

kor 변수명에 넣기

kor=get_map("seoul",
            zoom = 12,
            maptype = 'roadmap')

kor.map=ggmap(kor) +
  geom_point(data=loc,
             aes(x=LON, y=LAT),
             size=3,
             alpha = 1) #alpha : 투명도
kor.map + geom_text(data=loc,
                  aes(x=LON,y=LAT+0.005,label=구청명),
                  size=3)