ggmap

주소를 위도, 경도로 바꾸기

library(ggmap)

p$addr <- as.character(p$location)

p$addr <- enc2utf8(p$addr)

m <- mutate_geocode(p, addr, source="google")

지도 그리기 

library(ggmap)

jgmap <- ggmap(get_map(location="Ulsan Jung-gu", maptype="roadmap", zoom=13))

ggmap(jgmap)

ggsave('map.png',dpi=500)

지도에 점찍기

hanmap=jgmap+geom_point(data=m, aes(x=lon, y=lat), size=0.5)

hanmap