ggmap과 googleVis를 이용한 지도 그리기

install.packages("ggmap")

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

# 서울 지역의 BBQ 대리점
bbq.seoul.names <- c("봉은사역점",
"역삼스타점",
"강남세곡점",
"논현중앙점",
"대청점",
"신사점",
"학동역점",
"개포스타점",
"압구정스타점",
"개포2점",
"자곡행운점",
"청담점")

bbq.seoul.address <- c("서울특별시 강남구 영동대로 611",
"서울특별시 강남구 논현로 411",
"서울특별시 강남구 헌릉로 569",
"서울특별시 강남구 언주로136길 10",
"서울특별시 강남구 일원동 687-2",
"서울특별시 강남구 신사동 561-22",
"서울특별시 강남구 학동로34길 23",
"서울특별시 강남구 논현로12길 19-9",
"서울특별시 강남구 신사동 634-16",
"서울특별시 강남구 개포동 141번지",
"서울특별시 강남구 자곡로 191",
"서울특별시 강남구 도산대로72길 28")

# 경도/위도 알아내기
bbq.seoul.geocode <- ggmap::geocode(enc2utf8(bbq.seoul.address))

# 새로운 데이터 만들기
bbq.seoul.DF <- data.frame(name = bbq.seoul.names, 
lon = bbq.seoul.geocode$lon, 
lat = bbq.seoul.geocode$lat,
latlong = paste(bbq.seoul.geocode$lat, ":", bbq.seoul.geocode$lon, sep = ""))

# 지도 설정하기
bbq.map <- gvisMap(bbq.seoul.DF,
"latlong" , 
"name", 
options=list(showTip = TRUE, 
showLine = TRUE, 
enableScrollWheel = TRUE,
mapType = "satellite", 
useMapTypeControl = TRUE))

# marker의 한글이 깨지는 현상을 해결
bbq.map$html$header <- gsub("charset=utf-8", "charset=euc-kr", bbq.map$html$header)

# 지도 작성하기
plot(bbq.map)