数据分析之帕累托（贡献度）分析_帕累托分析 r语言

帕累托分析又叫贡献度分析，原理是20/80定律，即80%的利润常常来自于20%的产品。

以某餐饮菜品的盈利数据为例：

R语言实现：

1、导入数据

dishdata <- read.csv(file="catering_dish_profit.csv",header = T) #源数据是从大到小排序好的

导入后的数据如下图

2、绘制柱形图

barplot(dishdata[,3],col="blue",names.arg = dishdata[,2],width=1,space = 0,ylim=c(0,10000),xlab="菜品",ylab="盈利：元") #names.arg定义横轴标签值；space=0，使柱形的间距为0

3、绘制折线图

accratio = dishdata[,3] #选取作图的数据
 
for (i in 1:length(accratio)){
 accratio[i] = sum(dishdata[1:i,3])/sum(dishdata[,3])
 } #计算逐条累积的数值占总数的比例
 
par(new=TRUE,mar=c(4,4,4,4)) #new=TRUE,默认值为FALSE。如果设定为TRUE，那么下一个高级绘图命令