안녕하세요 구도입니다.


오늘은 지난 시간에 이은 차트그리기 2편!


파이차트 그리는 방법과 차트 위에 퍼센트 숫자를 표현하는 방법에 대해서 배워보도록 하겠습니다.


코드만 보고 이해하시지 말고 프로그램 설치 후 직접 해보시면서 공부하시면 더 쉽게 이해하실 수 있으십니다.


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



#패키지 설치

install.packages("graphics")

library(graphics)


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

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

pie(x,labels=label, main="부서별 영업 실적")   # 파이 차트 출력 1

pie(x,labels=label, clockwise=TRUE, main="부서별 영업 실적")   # 파이 차트 출력 2



# 부채꼴 출력방향

par(mfrow=c(1,2))

pie(x,labels=label, main="부서별 영업 실적")   

pie(x,labels=label, clockwise=TRUE, main="부서별 영업 실적")   



#파이차트 시작각도

par(mfrow=c(1,3))

pie(x,labels=label, init.angle=90, main="부서별 영업 실적")   

pie(x,labels=label, init.angle=180, main="부서별 영업 실적") 

pie(x,labels=label, init.angle=270, main="부서별 영업 실적")  



#퍼센트가 있는 파이차트

pct <- round(x/sum(x)*100)   #판매액의 상대적 비율을 구한 후 반올림하여 정수로 만듬. round(z,2)의 의미는 z값을 소수 2자리까지 반올림.

label <- paste(label, pct)   #각 부서명에 상대적 비율 값(pct)을 붙임

label <- paste(label, "%", sep="")   #각 부서명(label)에 '%' 기호를 붙임 & label과 %를 하나로 연결해 주고 그 사이값을 sep 명령어를 통해 구분

                 # sep="" : 공백을 없게 만들어줌, sep=" ": 2개의 문자를 이을 때, 띄어쓰기 입력, sep="---" : 2개의 문자 사이에 ---입력



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

+ Recent posts