ggmap 으로 2011년 관서별 방화발생횟수 크기로 표현해보기

fire <- read.csv("fire.csv")
fire

install.packages("reshape")
library(reshape)

names(fire) <- c("관서명","y2011","y2012","LAT","LON")

#위도, 경도, 2011년 자료만 추출하여 데이터프레임을 구성한다.
lat <- fire$LAT
lon <- fire$LON
y2011 <-fire$y2011
data3<- data.frame(lat,lon,y2011)

 

install.packages("devtools") 
library(ggmap)
library(ggplot2)

register_google(key="구글키 입력") # 구글에서 키를 받아온다.



map <- get_map("Seoul", zoom=10, maptype="roadmap")
map <- ggmap(map)
map + geom_point(aes(x=lon,y=lat,color=y2011,size=y2011),data=data3)

 

 

 

 

 

 

 

 

 

아래의 데이터로 실습해 보시기 바랍니다.

 

 

fire.csv

0.00MB

 

 

구글에서 키를 받아오는 방법은 다음 글을 참조해주세요