구도블로그

안녕하세요 구도입니다.

오늘은 지난 시간에 이어 파이차트를 그리는 법을 복습하고 pie3D 함수, barplot 함수를 그리는 법에 대해 배워보겠습니다.

작성한 코드만 보고 이해하시지 말고 프로그램에서 직접 실습해보시면서 공부하시면 이해가 훨씬 빠르시답니다.

*프로그램은 'R x64 3.5.1' 을 사용하였습니다*

#파이차트 그리기 : 다양한 색을 넣어 그리기

par(mfrow=c(2,3))

pie(x, labels=label, init.angle=90, col=c("red", "blue", "green", "yellow"), main="부서 별 영업 실적")  # 부채꼴의 색을 판매액(x)의 수만큼 작성자가 원하는 색으로 설정.

pie(x, labels=label, init.angle=90, col=rainbow(length(x)), main="부서 별 영업 실적")  # 부채꼴의 색을 판매액(x)의 수만큼 무지개 색으로 설정.

pie(x, labels=label, init.angle=90, col=heat.colors(length(x)), main="부서 별 영업 실적")  # 부채꼴의 색을 판매액(x)의 수만큼 적색과 황색에 치우친 색으로 설정.

pie(x, labels=label, init.angle=90, col=terrain.colors(length(x)), main="부서 별 영업 실적")  # 부채꼴의 색을 판매액(x)의 수만큼 지구 지형 색으로 설정.

pie(x, labels=label, init.angle=90, col=topo.colors(length(x)), main="부서 별 영업 실적")  # 부채꼴의 색을 판매액(x)의 수만큼 앞에서 조금 더 청색에 가까운 색으로 설정.

pie(x, labels=label, init.angle=90, col=cm.colors(length(x)), main="부서 별 영업 실적")  # 부채꼴의 색을 판매액(x)의 수만큼 핑크, 블루 색으로 설정.

#pie3D 함수

library(plotrix)

pie3D(x, labels=label, explode=0.1, labelcex=0.8, main="부서별 영업 실적")  #explode옵션은 부채꼴들의 간격. 0의 값은 간격이 없음. labelcex옵션은 라벨 문자의 크기

par(mfrow=c(1,3))

pie3D(x, labels=label, explode=0, labelcex=0.8, main="부서별 영업 실적")  

pie3D(x, labels=label, explode=0.1, labelcex=0.8, main="부서별 영업 실적") 

pie3D(x, labels=label, explode=0.5, labelcex=0.8, main="부서별 영업 실적")  

par(mfrow=c(1,3))

pie3D(x, labels=label, explode=0.1, labelcex=0.5, main="부서별 영업 실적")  

pie3D(x, labels=label, explode=0.1, labelcex=0.7, main="부서별 영업 실적")  

pie3D(x, labels=label, explode=0.1, labelcex=1, main="부서별 영업 실적")  

#barplot : 단순 바 차트 1

height <- c(9,15,20,6)   # 영업 실적 할당

name <- c("영업 1팀", "영업 2팀", "영업 3팀", "영업 4팀")     # 부서명 할당

barplot(height,names.arg=name, main="부서별 영업 실적")

# 단순 바 차트 2 

barplot(height,names.arg=name, main="부서별 영업 실적", col=rainbow(length(height)))

par(mfrow=c(2,3))

barplot(height,names.arg=name, main="부서별 영업 실적", col=c("red", "blue", "green", "yellow"))

barplot(height,names.arg=name, main="부서별 영업 실적", col=rainbow(length(height)))

barplot(height,names.arg=name, main="부서별 영업 실적", col=heat.colors(length(height)))

barplot(height,names.arg=name, main="부서별 영업 실적", col=terrain.colors(length(height)))

barplot(height,names.arg=name, main="부서별 영업 실적", ccol=topo.colors(length(height)))

barplot(height,names.arg=name, main="부서별 영업 실적", col=cm.colors(length(height)))

# 단순 바 차트 3 

barplot(height,names.arg=name, main="부서별 영업 실적", col=rainbow(length(height)), xlab="부서", ylab="영업 실적(억 원)")

par(mfrow=c(1,2))

barplot(height,names.arg=name, main="부서별 영업 실적", col=rainbow(length(height)), xlab="부서", ylab="영업 실적(억 원)")

barplot(height,names.arg=name, main="부서별 영업 실적", col=rainbow(length(height)), xlab="부서", ylab="영업 실적(억 원)", ylim=c(0,25))

오늘도 글 읽어주셔서 감사합니다.