R로 그려본 울산 중구 한의원 현황

p <- read.csv('p.csv')

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

p$addr <- enc2utf8(p$addr)

library(ggmap)

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

m <- subset(m,is.na(lat)==FALSE)

cent <- c(mean(m$lon), mean(m$lat))

jgmap <- ggmap(get_map(location=cent, maptype="roadmap", zoom=13))

hanmap=jgmap+geom_point(data=m, aes(x=lon, y=lat), size=0.8, color="RED")

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

data.go.kr에서 제공하는 울산광역시 중구 한의원 현황자료로 만들어본 지도.

구글에서 주소 못 잡는 몇 군데 빠졌고(아마 폐업한 듯) 세 군데 정도는 지도에서 빠졌다. 

주소를 바탕으로 위도, 경도를 자동으로 잡아주는게 놀랍다.