R의 ggmap 연동 방법 변경

loc <- read.csv("서울_강동구_공영주차장_위경도.csv",header=T)
head(loc)
register_google(key="구글 지도 API KEY")
cen <- c(127.132488,37.558775)
map <- get_googlemap(center=cen,maptype="roadmap",zoom=13,size=c(640,640))
kor.map <- ggmap(map)+geom_point(data=loc,aes(x=LON,y=LAT), size=3, alpha=0.7,color="red")
kor.map + geom_text(data=loc, aes(x=LON,y=LAT+0.001,label=주차장명),size=3)
ggsave("amsadong.png",dpi=500)

pop <- read.csv('지역별인구현황_2014_4월기준.csv',header=T)
head(pop)
lon <- pop$LON
lat <- pop$LAT
data <- pop$총인구수
df <- data.frame(data,lat,lon)
head(df)
cen <- c(127.116901,35.829060)
map1 <- get_googlemap(center=cen,maptype="roadmap",zoom=7,size=c(640,640))
map1 <- ggmap(map1)
map1 + geom_point(aes(x=lon,y=lat,colour=data,size=data),data=df)

cen <- c(127.049867,37.503188)
map1 <- get_googlemap(center=cen,maptype="roadmap",zoom=10,size=c(640,640))
subway <- read.csv("서울지하철3호선역위경도정보.csv",header=T)
map1 <- ggmap(map1) + geom_point(data=subway,aes(x=LON,y=LAT),size=3,alpha=0.7,col="red")
map1 + geom_path(data=subway,aes(x=LON,y=LAT),size=1,linetype=2,col="blue") +
+ geom_text(data=subway,aes(x=LON,y=LAT+0.01,label=역명),size=3)