ggmap를 이용한 지도 그리기 : 범례추가

install.packages("ggmap")

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

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

# 국내 유명 데이터분석 교육업체의 주소
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 = "satellite", zoom = 14)

# 지도 그리기 : 범례출력
ggmap::ggmap(education.company.map, fullpage = TRUE, legend = "topright") + 
ggplot2::geom_text(data = education.company, aes(x = lon, y = lat, color = factor(name)), size = 5, face = "bold", label = seq_along(education.company$name))

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