大學生畢業年起薪分析

場景：

• • 抽樣調查 30 位大學生年起薪資料如附件檔。

問題：

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

GNU R：

source("Statistics.R") ######################################################## # 3-5 # 已知 myData <- scan(file="Descriptive-Statistics-B5.dat", what=double(0), multi.line=TRUE) # 求算 myMean <- Mean2(myData) myMedian <- Median2(myData) print(sprintf("Mean=%.4f Median=%.4f", myMean, myMedian)) # 驗證 mySummary <- summary(myData) print(mySummary) par(mfrow=c(3,2)) dotchart(myData, main="大學生起年薪點圖") barplot(myData - myMean, main="大學生起年薪二極長條圖", xlab="薪資級距", ylab="年薪") hist(myData, main="大學生起年薪直方圖", xlab="薪資級距", ylab="人數", nclass=5) boxplot(myData, main="大學生起年薪盒狀圖", xlab="薪資級距", horizontal=TRUE)

解答：