R 을 활용하여 실전 분석하기  Review- 비정형데이터 분석 / 그래프 그리기  비정형 데이터로 그래프 그리기 예제 ) 제주도 여행 코스  정형 데이터로 그래프 그리기 예제 1) 라면가격 상승률과 물가상승률 비교 예제 2) 2 호선 역별 승하차인원수 1

 Review- 그래프 그리기에 사용되는 함수 파이 그래프 >pie(a) pie 에 사용되는 인수 인수기능 angle, density, col Pie 부분을 구성하는 각도, 수, 색상을 지정 labels 각 pie 부분의 이름을 지정하는 문자벡터를 지정 radius 원형의 크기를 지정 clockwise 회전방향 지정. 기본은 반시계 init.angle 시작되는 지점의 각도지정 2

바 그래프 >barplot(a) barplot 에 사용되는 인수 인수기능 angle, density, col 막대를 칠하는 선분의 각도, 수, 선분의 색을 지정 legend 오른쪽 상단에 범례 나타냄 names 각 막대의 라벨을 정하는 문자열 벡터 지정 width 각 막대의 상대적인 폭을 벡터로 지정 space 각 막대 사이의 간격 지정 beside TRUE 를 지정하면 각각의 값마다 막대를 그림 horiz TRUE 를 지정하면 막대를 옆으로 눞혀서 그림 3  Review- 그래프 그리기에 사용되는 함수

분포도 / 꺾은선 그래프 >plot(a) plot 에 사용되는 인수 인수기능 main=“ 메인제목 ” 제목 설정 xlab=“ 문자 ”, ylab=“ 문자 ”x,y 축에 사용할 문자열 지정 ann=F x,y 축 제목을 지정하지 않음 axes=F x,y 축을 표시하지 않음 axis x,y 축을 사용자의 지정값으로 표시 type 그래프 타입 선택 ex)s: 왼쪽값을 기초로 계단모양 으로 연결한 그래프 o: 점과 선을 중첩한 그래프 lty 선의 모양 선택 ex)1: 실선 2: 대쉬선 lwd=“ 숫자 ” 선의 굵기 지정 cex=“ 숫자 ” 점이나 문자의 굵기 지정 4  Review- 그래프 그리기에 사용되는 함수

제주도 여행코스를 분석하여 그래프로 표시하기 5  비정형데이터 실습

실전분석 - 제주도 여행코스 추천수 상위 10 개를 골라 파이그래프로 표현 a<-head(sort(wordgraph,deceasing=T),10) pie(a) 6  비정형데이터 실습

색상 변경 / 수치값 출력 pct<-round(a/sum(a)*100,1) lab<-paste(names(a),”n”,pct,”%”) pie<-(a,main=“ 제주도 추천 코스 ”, col=rainbow(10),cex=0.8,labels=lab ) 7  비정형데이터 실습

도넛모양 만들기 pie(a,main=" 제주도 추천 코스 ", col=rainbow(10),cex=0.8,labels = lab) par(new=T) pie(a,radius=0.6,col=“white”, labels=NA,border=NA ) ※ par(new=T): 그래프 겹쳐 그리기 8  비정형데이터 실습

Bar graph 만들기 bp<-barplot(a,main=" 제주도 추천 여행지 TOP 10", col=rainbow(10),cex.names=0.7,las=2,ylim=c(0,25)) text(x=bp,y=a*1.05,labels=paste("(",pct,"%",")"), col="black",cex=0.7) text(x=bp,y =a*0.95,labels=paste(a," 건 "), col="black",cex=0.7) 9  비정형데이터 실습

누운 bar graph barplot(a,main=" 제주도 여행 코스 Top 10",col=rainbow(10), xlim=c(0,25),cex.name=0.7,las=1,horiz=T) text(y = bp, x = a*0.9, labels = paste(a," 건 "), col = "black", cex = 0.7) text(y = bp, x = a*1.15, labels = paste("(",pct,"%",")"), col = "black", cex = 0.7) 10  비정형데이터 실습

실전분석 – 라면가격상승률과 물가상승률 비교 11  정형데이터 실습 - 예제 1

누적물가상승률 그래프 그리기 noodle <- read.csv(" 라면가격변동과 물가상승율.csv",header=T,sep=",") plot(noodle$ 년도,noodle$ 누적물가상승율,type="s",ylim=c(-3,1200), ann=FALSE,col="red",lwd=2) 12  정형데이터 실습 - 예제 1

라면가격 상승률 그래프 겹쳐 그리기 par(new=T) plot(noodle$ 년도,noodle$ 누적상승율,type="s",ylim=c(-3,1200), axes=FALSE, ann=FALSE,col="blue",lwd=2) 13  정형데이터 실습 - 예제 1

제목과 x, y 축 제목 설정 title(main=" 물가상승률 및 라면값 상승율 비교 ") title(xlab=" 년도 ",col.lab="blue") title(ylab=" 누적상승율 ( 단위 :%)",col.lab="red") 14  정형데이터 실습 - 예제 1

눈금 그리기 abline(h=seq(50,1200,50),col="gray",lty=2,lwd=0.5) abline(v=seq(1980,2015,1),col="gray",lty=2,lwd=0.5) 15  정형데이터 실습 - 예제 1

범례 넣기 colors <- c("red","blue") legend(1982,1150,c(" 물가상승율 ", " 라면값상승율 ”),cex=0.8,col=colors, lty=1,lwd=2,fill="white“,bg="white") 16  정형데이터 실습 - 예제 1

실전분석 – 2 호선 역별 승하차인원수 17  정형데이터 실습 - 예제 2

승차 승객수 그래프 그리기 f <- read.csv(" 서울지하철 _ 역별 _ 시간대별 _ 승하차인원수 _total.csv",sep=",", stringsAsFactors = FALSE) a <- (f$ 승차합계 /1000) b <- (f$ 하차합계 /1000) yrange <-range(0,a,b) plot(a,xlab="",ylab="",ylim=yrange,axes=FALSE,type="o",col="red", main="2 호선 역별 승하차 승객수 - 5 월 합계 ( 단위 : 천명 ) 출처 : 서울메트로 제공 ") 18  정형데이터 실습 - 예제 2

x,y 축을 지정하여 표시하기 & 눈금 그리기 axis(1,at=1:50,lab=c(f$ 역명 ),las=2) axis(2,las=1) abline(h=c(250,500,1000,1500,2000,2500),v=c(5,10,15,20, 25,30,35,40,45),lty=2) 19  정형데이터 실습 - 예제 2

하차 승객수 그래프 그리기 & 범례 표시하기 lines(b,col="blue",type="o") colors <- c("red","blue") legend(45,3000,c(" 승차 "," 하차 "),cex=0.8,col=colors,lty=1,lwd=2) 20  정형데이터 실습 - 예제 2

감사합니다 21