R에서 파레토 차트 그리기

파레토 법칙이란?

파레토법칙은 20:80의 법칙이라고도 부릅니다. 상위 20%가 전체 원인의 80%를 차지한다는 법칙인데요. 예시는 아래와 같습니다. 

모든 고객의 상위 20% 고객이 전체 매출의 80%를 차지함.

 

데이터

올 한해 고객이 5명이었고, 고객 5명의 구매액이 아래와 같다고 합시다. 단위는 만원입니다. 

고객A : 100
고객B : 80
고객C : 10
고객D : 50
고객E : 300

 

파레토 차트 그리기

설명은 주석으로 대신합니다. 

 

#패키지 설치 
install.packages("qcc")

#패키지 불러오기

library(qcc)

#데이터 입력
data <- c(100, 80, 10, 50, 300)

#비율로 환산
data=data/sum(data)*100

#데이터 이름 입력
names(data) <- c("A", "B", "C", "D", "E")
#파레토 차트 그리기
pareto.chart(data, ylab = "비율(%)")