ggmap 패키지를 이용하여 지도 그리기

install.packages("ggmap")

install.packages("ggplot2")
library(ggmap)
library(ggplot2)

# 국내 유명 데이터분석 교육업체명
company.names = c("(주)데이타솔루션", "패스트캠퍼스", "한국글로벌널리지", "한국데이터진흥원", "멀티캠퍼스")

# 국내 유명 데이터분석 교육업체의 주소
company.address = c("서울특별시 강남구 언주로 620", "서울특별시 강남구 도산대로 8길 17-8", "서울특별시 강남구 언주로 425",  "서울특별시 중구 세종대로 9길 42", " 서울특별시 강남구 테헤란로 212")

# 경도(longitude)와 위도(latitude) 알아내기
company.address.geocode <- ggmap::geocode(enc2utf8(company.address))

# 회사명, 경도, 위도를 갖는 데이터 생성
education.company <- data.frame(name = company.names, lon = company.address.geocode$lon, lat = company.address.geocode$lat)

# 지도의 중심 찾기
location.center <- c(mean(education.company$lon), mean(education.company$lat))

# 지도의 중심, 지도형태, 지도의 확대정도, 회사명이 표시될 마커를 지정하기
education.company.map <- ggmap::get_googlemap(center = location.center, maptype = "roadmap", zoom = 14, marker = company.address.geocode)

# 지도 그리기 
ggmap::ggmap(education.company.map) + 

   ggplot2::geom_text(data = education.company, aes(x = lon, y = lat), size = 2.5, face = "bold", label = education.company$name)

# 1. maptype = "roadmap"

# 2. maptype = "terrain"

# 3. maptype = "satellite"

# 4. maptype = "hybrid"

[참고] 빅데이터 분석의 첫걸음 R로 배우는 코딩, 장용식/강희구 지음, 생능출판, p181~183