便利商店飲料冰櫃占有率分析

場景：

• • 便利商店中不同廠牌飲料在冰櫃中占有率如下：

• • 便利商店飲料數量：200

問題：

• • 廠牌 D 在冰櫃中占有率為何。

  • 求算不同廠牌飲料在冰櫃中數量分佈（Frequency Distribution）

  • 求算不同廠牌飲料在冰櫃中百分比分佈（Percentage Frequency Distribution）

GNU R：

source("Statistics.R") ######################################################## # 2 # 已知 myTitle <- c("A", "B", "C", "D") myData <- c(0.22, 0.18, 0.40, 0.00) myTotalCount <- 200 # 求算 myData[4] <- 1 - sum(myData) names(myData) <- myTitle print(summary(myData)) myDataFrame <- data.frame(myTitle, myData) names(myDataFrame)[1] <- "廠牌" names(myDataFrame)[2] <- "占有率" print(myDataFrame, digits=2) myFrequency <- myTotalCount * myData myDataFrame <- data.frame(myTitle, myFrequency) names(myDataFrame)[1] <- "廠牌" names(myDataFrame)[2] <- "數量" print(myDataFrame) myPercentageFrequency <- 100 * myData myDataFrame <- data.frame(myTitle, myPercentageFrequency) names(myDataFrame)[1] <- "廠牌" names(myDataFrame)[2] <- "百分比%" print(myDataFrame) par(mfrow=c(3,2)) pie(myData, main="廠牌占有率餅圖", labels=names(myData)) dotchart(sort(myData), main="廠牌占有率點圖", ylab="廠牌", xlab="占有率") barplot(myData, main="廠牌占有率長條圖", xlab="廠牌", ylab="占有率") hist(myData, main="廠牌占有率直方圖", xlab="廠牌", ylab="占有率") boxplot(myData, main="廠牌占有率盒狀圖", horizontal=TRUE)

解答：