close_btn
조회 수 50912 추천 수 0 댓글 1
?

단축키

Prev이전 문서

Next다음 문서

+ - Up Down Comment Print Files
?

단축키

Prev이전 문서

Next다음 문서

+ - Up Down Comment Print Files

오늘도 계속 ggmap에 대해 다루도록 할게요.


바로 이전 포스팅에서는 간단하게 ggmap을 통해 지도를 그리고


로그의 위도 경도 데이터를 통해 지도에 점을 찍는 법 까지 다루었 습니다.


오늘은 지도에 찍힌 점의 분포를 한눈에 알 수 있도록 등고선(?) 비슷한 것을 그려보도록 하겠습니다.


데이터는 이전에 썼던 데이터를 그대로 쓰도록 하죠 : )



gc <- geocode('Seoul')

center <- as.numeric(gc)

ggmap(get_googlemap(center=center, scale = 1,maptype = "roadmap",zoom=7), fullpage = TRUE)+

   geom_point(aes(x = longitude, y = latitude, colour = "red" , size= 10), data = df3) +

stat_density2d(aes(x = longitude, y = latitude, fill = ..level.., alpha = ..level..), size =6, bins = 10, data = df3, geom = 'polygon') 


geom_point 까지가 이전 포스팅에서 다뤘던 함수 였죠?


geom_point로 점을 찍고 + 로 stat_density2d 함수를 연결해 주시면 됩니다.


fill 과 alpha 는 level로 설정 해주거나 아예 안 넣어 주실수 있는데, 안넣어주시면


아래와 같이 plot이 형성 됩니다.


d.jpg


위 코드의 결과는 아래와 같습니다. 

stat_density2d  는 로그가 찍힌 점의 지역들을 묶어서 밀도가 높은 지역과 낮은 지역을

시각화 시켜줍니다.

 e.jpg

stat_density2d(aes(x = longitude, y = latitude, fill = ..level.., alpha = ..level..),size =6, bins = 10, data = df3, geom = 'polygon')

에서 size와 bins 를 통해 등고선(?)의 밀도와 크기를 설정 해 줄 수 있습니다.

한지역에 너무 몰리는 경우에는 한지역만 등고선(?) 이 그려지고, 다른 지역에는 점이 찍혔음에도 불구하고

그려지지 않는 경우가 있는데, 이러한 경우에, bins 를 높여주면 상대적으로 밀도가 낮은 지역도

어느정도 시각화 시킬 수 있습니다.



위 그래프를 국가별로 나타내 보도록 하죠 : )

 gc <- geocode('Seoul')

center <- as.numeric(gc)

ggmap(get_googlemap(center=center, scale = 1,maptype = "roadmap",zoom=7), fullpage = TRUE)+

   geom_point(aes(x = longitude, y = latitude, colour = "red" , size= 10), data = df3) +

stat_density2d(aes(x = longitude, y = latitude, fill = ..level.., alpha = ..level..), size =6, bins = 10, data = df3, geom = 'polygon')+

 facet_wrap(~ country_code)


현재 df3 데이터 프레임은 아래와 같은 형식으로 되어있습니다.

  latitude longitude     date id time country_code                                          address
1 35.10196  129.0353 20131210  a 1540         중국         대한민국 부산광역시 중구 중앙동2가 49-35
2 37.44705  126.4477 20131205  a 1530         중국 대한민국 인천광역시 중구 영종해안남로321번길 131
3 37.57003  126.9813 20131204  a 1122         중국          대한민국 서울특별시 종로구 지봉로8길 54
4 37.57004  126.9813 20131205  a  825         중국          대한민국 서울특별시 종로구 종로1가 63-1
5 37.44705  126.4477 20140224  b 1551         미국 대한민국 인천광역시 중구 영종해안남로321번길 131
6 37.44706  126.4480 20140225  b 1319         미국 대한민국 인천광역시 중구 영종해안남로321번길 131

이전 코드에 + 로 연결해 facet_wrap(~ country_code) 만 붙여주시면 나라별로 한꺼번에 시각화 시킬수 있습니다.

f.jpg




List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 데이터시각화 강의 게시판 이용관련 공지사항 DataMarket 2014.05.21 72046
42 [Tableau] 타블로 기본 예제 1 file sh707 2015.05.19 51829
41 [BigData -Visualization for R] google map 3 file DataMarket 2014.06.30 50909
» [BigData -Visualization for R] google map 2 1 file DataMarket 2014.06.28 50912
39 [BigData -Visualization for R] google map 1 file DataMarket 2014.06.27 56858
38 [BigData -Visualization for R] TablePlot file DataMarket 2014.06.25 49945
37 [BigData -Visualization for R] Tree Map 그리기 9(label에 대한 여러가지 옵션) file DataMarket 2014.06.23 50155
36 [BigData -Visualization for R] Tree Map 그리기 8(type = manual) file DataMarket 2014.06.23 51404
35 [BigData -Visualization for R] Tree Map 그리기 7(type =color) file DataMarket 2014.06.19 50511
34 [BigData -Visualization for R] Tree Map 그리기 6(type =depth, categorical) file DataMarket 2014.06.19 50060
33 [BigData -Visualization for R] Tree Map 그리기 5(type =Dense) DataMarket 2014.05.21 44063
32 [BigData -Visualization for R] Tree Map 그리기 4(type =comp) DataMarket 2014.05.21 44194
31 [BigData -Visualization for R] Tree Map 그리기 3(type = index or value) DataMarket 2014.05.21 43862
30 [BigData -Visualization for R] Tree Map 그리기 2(index옵션) DataMarket 2014.05.21 47824
29 [BigData -Visualization for R] Tree Map 그리기 1 DataMarket 2014.05.21 53892
28 [BigData -Visualization for R] Tree graph(마인드맵) 그리기 DataMarket 2014.05.21 51573
27 자신만의 워드 클라우드를 디자인 해보자 DataMarket 2014.05.21 70712
26 Gephi를 통해 Facebook네트워크망 만들기 1 DataMarket 2014.05.21 64495
25 [BigData -Visualization for R] ] Panel그려서 여러 그래프 띄우기(panes) DataMarket 2014.05.21 48254
24 [BigData -Visualization for R] ehplot 그리기 DataMarket 2014.05.21 45601
Board Pagination ‹ Prev 1 2 ... 3 Next ›
/ 3

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소

Designed by sketchbooks.co.kr / sketchbook5 board skin

Sketchbook5, 스케치북5

Sketchbook5, 스케치북5

Sketchbook5, 스케치북5

Sketchbook5, 스케치북5