안녕하세요 구도입니다.
오늘은 지난 시간에 이어 파이차트를 그리는 법을 복습하고 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))
오늘도 글 읽어주셔서 감사합니다.
'IT > 빅데이터분석및시각화' 카테고리의 다른 글
[빅데이터분석및시각화 07] R 상대도수 y축 / 줄기잎그림 / boxplot 등 (0) | 2019.01.09 |
---|---|
[빅데이터분석및시각화 06] R 히스토그램 그리기 (0) | 2018.12.27 |
[빅데이터분석및시각화 05] R 파이차트 그리기 (0) | 2018.12.20 |
[빅데이터분석및시각화 04] R 데이터 파일 읽기 (0) | 2018.12.18 |
[빅데이터분석및시각화 03] R matrix / data frame 함수 (0) | 2018.12.16 |