방통대 2019년 1학기 데이타시각화 과제물

목차

1. 조선왕조 27명 왕의 수명 자료(교과서 p10 자료1)로 polygon함수를 이용하여 색이 들어간 수명 다각형 그래프를 작성하라. (6점) 교재 p26
2. 방송대학 교가의 워드클라우드를 작성하라.(6점) 교재 p187
3. Titanic 자료에서 선실의 등급(Class: 1st,2nd,3rd,Crew) 별 생존여부(Survived: No,Yes)의 교차표를 모자이크 플롯(mosaic plot)으로 시각화하여 보라.(6점) 교재 p84
4. 교과서 p150 예제 5-5를 이용하여 도시별 미세먼지농도를 행정지도 상에 도시명과 농도를 표시하는 지리적 데이터 시각화를 작성하라.(6점)교재 p150
5. 한스 로슬링의 Gapminder(www.gapminder.org)에 의한 국가별 GDP와 기대수명의 관계 버블그래프에서 한국의 예를 화면캡쳐하고 설명하라.(6점) 교재 p223

본문내용

kings_name <- c("태조","정종","태종","세종","문문","단종","세조","예종","성종","연산","중종","인종","명종","선조","광해","인조","효종","현종","숙종","경종","영조","정조","순조","헌종","철종","고종","순종")
kings_Life <- c(73,62,45,53,38,16,51,28,37,30,56,30,33,56,66,54,40,33,59,36,82,48,44,22,32,67,52)
king_period <- c(6,2,18,32,2,3,13,1,25,12,38,1,22,41,15,26,10,15,46,4,52,24,34,15,14,44,3)
Kings <- data.frame(names = kings_name, life =kings_Life,period =king_period)
Kings$Cumsum<-cumsum(Kings$life)
str(Kings)
## 'data.frame': 27 obs. of 4 variables:
## $ names : Factor w/ 27 levels "경종","고종",..: 23 20 24 10 6 4 9 16 8 14 ...
## $ life : num 73 62 45 53 38 16 51 28 37 30 ...
## $ period: num 6 2 18 32 2 3 13 1 25 12 ...
## $ Cumsum: num 73 135 180 233 271 287 338 366 403 433 ...
attach(Kings)
Kings
## names life period Cumsum
## 1 태조 73 6 73
## 2 정종 62 2 135
## 3 태종 45 18 180
## 4 세종 53 32 233
## 5 문문 38 2 271
## 6 단종 16 3 287

참고자료

· 없음