library(ggmap)
### 위성지도 ###
satmap <- get_navermap(
center=c(lon=126.9525363, lat=37.4803967),
zoom=13, ## 1 to 14
key="c75a09166a38196955adee04d3a51bf8",
uri="www.r-project.org",
baselayer="satellite",
overlayers="anno_satellite",
format="png"
)
ggmap(satmap)
### 일반도 ###
defmap <- get_navermap(
center=c(lon=126.9528145, lat=37.4629952),
zoom=11, ## 1 to 14
key="c75a09166a38196955adee04d3a51bf8",
uri="www.r-project.org",
baselayer="default",
overlayers="anno_satellite",
format="png"
)
ggmap(defmap)
