데이터 시각화 ('19-01) 중간과제물

과제정보

학과	통계·데이터과학과	학년	3학년
과목명	데이터시각화	자료	4건
공통	✻다음 과제의 시각화를 R로 수행하여 소스 프로그램과 출력결과 및 결과해석을 제출하라. 1. 조선왕조 27명 왕의 수명 자료(교과서 p10 자료1)로 polygon함수를 이용하여 색이 들어간 수명 다각형 그래프를 작성하라.(6점) 교재 p2... 더보기 ✻다음 과제의 시각화를 R로 수행하여 소스 프로그램과 출력결과 및 결과해석을 제출하라. 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 접기

목차

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

본문내용

4.교과서 p150 예제 5-5를 이용하여 도시별 미세먼지농도를 행정지도 상에 도시명과 농도를 표시하는 지리적 데이터 시각화를 작성하라.(6점)

소스코드

if(!require(sp)) install.packages("sp"); library(sp)
gadm1 <- readRDS("./data/gadm36_KOR_1_sp.rds")
plot(gadm1, col="grey75")

#미세먼지 데이터 로드
dust <- read.table("./data/pollution.txt",header= T,sep = '\t',fileEncoding='euc-kr')

dust$broadth<-2/5
dust$height<-0.1
dust$space<-0.1
spaceDif<-0.05
names(dust)
# 지도위에 도시의 점 그리기

for (i in 1:dim(dust)[1]) {
coords <- SpatialPoints(data.frame(cbind(dust$x경도[i], dust$y위도[i])),
proj4string = CRS("+proj=longlat"))
plot(coords, col ="red3", pch = 20, cex = 1.5, add = TRUE)
}

# 도시 옆에 이름 넣을 사각형 그리기
for (i in 1:dim(dust)[1]) {
a<-c(dust$x경도[i]-dust$broadth[i],
dust$x경도[i]+dust$broadth[i],
dust$x경도[i]+dust$broadth[i],
dust$x경도[i]-dust$broadth[i])

b<-c(dust$y위도[i]+dust$space[i]-dust$height[i]+spaceDif,
dust$y위도[i]+dust$space[i]-dust$height[i]+spaceDif,

참고 자료

없음