R : ggmap-마커, 텍스트 출력 (개념 및 예제)

마커, 텍스트 출력

지도의 위도,경도 위치에 마커를 출력합니다. 예제를 통해 지도 위에 마커를 표시해보겠습니다.

library(ggmap)

gc <- geocode(enc2utf8("용인")) # 지점의 경도위도

cen <- as.numeric(gc) # 경도위도를 숫자로

map <- get_googlemap(center=cen, # 지도의 중심

maptype="roadmap", # 지도의 형태

marker=gc) # 마커의 위치

ggmap(map) # 지도 화면에 보이기

이번에는 여러 지역의 마커 표시해보겠습니다. 왜냐하면 지도 상에 여러 곳을 표시해야 하는 경우가 있기 때문입니다. 원하는 지역 데이터를 담아 아래와 같이 표현하면 됩니다. 

library(ggmap)

library(ggplot2)

names <- c("용두암","성산일출봉","정방폭포",

"중문관광단지","한라산1100고지","차귀도")

addr <- c("제주시 용두암길 15",

"서귀포시 성산읍 성산리",

"서귀포시 동홍동 299-3",

"서귀포시 중문동 2624-1",

"서귀포시 색달동 산1-2",

"제주시 한경면 고산리 125")

gc <- geocode(enc2utf8(addr)) #주소를 경도,위도로 변환

df <- data.frame(name=names,

lon=gc$lon,

lat=gc$lat)

cen <- c(mean(df$lon),mean(df$lat))

map <- get_googlemap(center=cen,

maptype="roadmap",

zoom=10,

size=c(640,480),

marker=gc)

ggmap(map) # 지도+마커 화면에 보이기

# 명소이름 지도위에 표시하기

gmap <- ggmap(map)

gmap+geom_text(data=df,

aes(x=lon,y=lat), #글씨 위치

size=5, #글씨 크기

label=df$name) #글씨 내용