貢獻(xiàn)度分析又稱帕累托分析， 它的原理是帕累托法則又稱20/80定律。

同樣的投入放在不同的地方會(huì)產(chǎn)生不同的效益。例如， 對(duì)一個(gè)公司來(lái)講，

80%的利潤(rùn)常常來(lái)自于20%最暢銷的產(chǎn)品， 而其他80%的產(chǎn)品只產(chǎn)生了20%

的利潤(rùn)。

##設(shè)置工作空間
#把“數(shù)據(jù)及程序” 文件夾復(fù)制到F盤下， 再用setwd設(shè)置工作空間
setwd（"F： /數(shù)據(jù)及程序/chapter3/示例程序"）
#讀取菜品數(shù)據(jù)， 繪制帕累托圖
dishdata=read.csv（file="./data/catering_dish_profit.csv"， header=TRUE）
barplot（dishdata［， 3］ ， col="blue1"， names.arg=dishdata［， 2］ ， width=1， space=0，
ylim=c（0， 10000） ， xlab="菜品"， ylab="盈利： 元"）
accratio=dishdata［， 3］
for （i in 1： length（accratio） ） {
accratio［i］ =sum（dishdata［1： i， 3］ ） /sum（dishdata［， 3］ ）
}p
ar（new=T， mar=c（4， 4， 4， 4） ）
points（accratio*10000~c（（1： length（accratio） -0.5） ） ， new=FALSE， type="b"， new=T）
axis（4， col="red"， col.axis="red"， at=0： 10000， label=c（0： 10000/10000） ）
mtext（"累積百分比"， 4， 2）
points（6.5， accratio［7］ *10000， col="red"）
text（7， accratio［7］ *10000， paste（round（accratio［7］ +0.00001， 4） *100， "%"） ）