공공 WIFI 지도로 나타내기

library(ggplot2)

library(ggmap)

korea_wifi<-read.csv("WIFI.csv",sep=",",header=T)

str(korea_wifi)

public<-subset(korea_wifi, 서비스제공사업자구분=="공공",select=c("위도","경도","서비스구분","시도명"))

str(public)

cent<-c(경도=127.8,위도=35.8)

map<-ggmap(get_googlemap(center=cent,zoom=7,maptype='roadmap',color='bw',scale='2'),extent='device')

map + geom_point(data=public, aes(x=LON,y=LAT),colour='red',alpha=0.1)

names(public)[1]<-"LAT"

names(public)[2]<-"LON"