분석도구 R 교육 샘플 (지도)

교재 : R까기

busan2.txt

busan_line2.txt

<부산지역 구별 인구밀도 분석>

> loc2 <- read.csv("busan2.txt",header=T)

> kor <- get_map("busan",zoom=11,maptype="hybrid")

> kor.map <- ggmap(kor)+geom_point(data=loc2,aes(x=LON,y=LAT),size=3,alpha=1)

> kor.map+geom_point(aes(x=LON,y=LAT,colour=POP,size=POP),data=loc2)+geom_text(data=loc2,aes(x=LON,y=LAT+0.01,label=구청명),size=3)

<부산 지하철 2호선 노선 표시>

> loc <- read.csv("busan_line2.txt",header=T)

> kor <- get_map("busan",zoom=11,maptype="roadmap")

> kor.map <- ggmap(kor)+geom_point(data=loc,aes(x=LON,y=LAT),size=3,alpha=0.7,col="red")

> kor.map+geom_path(data=loc,aes(x=LON,y=LAT),size=1,linetype=2,col="green")+geom_text(data=loc,aes(x=LON,y=LAT+0.005,label=역명),size=2)