線上遊戲玩家分析

場景：

• • 公司抽樣調查員工搭乘大眾運輸工具與自用車，到達公司所需要的時間資料如附件檔。

問題：

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

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

GNU R：

# 線上遊戲玩家分析 source("Statistics.R") ######################################################## # 3-64 # 已知 myData <- read.table(file="Descriptive-Statistics-B64.dat", header=TRUE) myAverageOnlineGamerRate <- 0.19 print(myData) print(summary(myData)) # 求算 myData$線上遊戲玩家數 <- myData$上網人數 * myAverageOnlineGamerRate myMean <- c(Mean2(myData$上網人數), Mean2(myData$線上遊戲玩家數)) myMedian <- c(Median2(myData$上網人數), Median2(myData$線上遊戲玩家數)) myVariance <- c(Variance(myData$上網人數, FALSE), Variance(myData$線上遊戲玩家數, FALSE)) myStdDeviation <- c(StdDeviation2(myData$上網人數, FALSE), StdDeviation2(myData$線上遊戲玩家數, FALSE)) print(sprintf("%s: Mean=%.4f Median=%.4f Variance=%.4f StdDeviation=%.4f", "上網人數", myMean[1], myMedian[1], myVariance[1], myStdDeviation[1])) print(sprintf("%s: Mean=%.4f Median=%.4f Variance=%.4f StdDeviation=%.4f", "線上遊戲玩家數", myMean[2], myMedian[2], myVariance[2], myStdDeviation[2])) # 驗證 par(mfrow=c(4,2)) barplot(myData$上網人數 - myMean[1], main="上網人數二極長條圖", ylab="均值差") barplot(myData$線上遊戲玩家數 - myMean[2], main="線上遊戲玩家數二極長條圖", ylab="均值差") hist(myData$上網人數, main="上網人數直方圖", xlab="人數", ylab="人數級距", nclass=6) hist(myData$線上遊戲玩家數, main="線上遊戲玩家數直方圖", xlab="人數", ylab="人數級距", nclass=6) boxplot(myData$上網人數, main="上網人數盒狀圖", xlab="人數", horizontal=TRUE) boxplot(myData$線上遊戲玩家數, main="線上遊戲玩家數盒狀圖", xlab="人數", horizontal=TRUE) dotchart(myData$上網人數, main="上網人數點圖", xlab="人數") dotchart(myData$線上遊戲玩家數, main="線上遊戲玩家數點圖", xlab="人數")

解答：