筆記本機型評比分析

場景：

• • 抽樣調查 15 種筆記型電腦評比資料如附件檔。

問題：

• • 求算平均值（Mean） ，中數（Median），眾數（Mode），四分位數（Quartile）

  • 求算變異數（Variance），標準差（Std. Deviation）

GNU R：

source("Statistics.R") ######################################################## # 3-19 # 已知 myData <- read.csv(file="Descriptive-Statistics-B19.dat", header=FALSE) # 求算 myMean <- Mean2(myData$V2) myMedian <- Median2(myData$V2) myVariance <- Variance2(myData$V2, FALSE) myStdDeviation <- StdDeviation2(myData$V2, FALSE) print(sprintf("Mean=%.4f Median=%.4f Variance=%.4f StdDeviation=%.4f", myMean, myMedian, myVariance, myStdDeviation)) # 驗證 par(mfrow=c(2,2)) barplot(myData$V2 - myMean, main="機型評比二極長條圖", xlab="評比級距", ylab="機型") hist(myData$V2, main="機型評比直方圖", xlab="評比級距", ylab="機型數", nclass=5) boxplot(myData$V2, main="機型評比盒狀圖", xlab="評比級距", horizontal=TRUE) dotchart(myData$V2, main="機型評比點圖", labels=substr(myData$V1,1,4)) names(myData) <- c("機型", "評比") print(summary(myData))

解答：