本文範例出處來自 俞洪亮等人(2012)「商管研究資料分析:SPSS的應用」,使用R語言來模擬SPSS報表產生的結果。
quality.sav檔內容為高鐵設施的意見調查(共175件樣本)、其問項因子有五:
- 高鐵車站的動線標示清楚 (X1 )。
- 高鐵車廂乾淨清潔 (X2 )。
- 高鐵服務人員服裝賞心悅目 (X3 )。
- 高鐵服務人員的態度輕切 (X4 )。
- 乘坐高鐵非常舒適 (X5 )。 •
以李克特5點尺度為量度(5為非常滿意,1為非常不滿意)。
程式碼:
#安裝參考:https://cran.r-project.org/web/packages/haven/readme/README.html
#install.packages("tidyverse")
#install.packages("haven")
require("haven")
sample <- read_spss("spss/quality.sav")
count <- length(sample)
result <- matrix(0, ncol = count, nrow = count)
factors = c("動線標示", "車廂乾淨", "人員服裝", "人員態度", "舒適")
colnames(result) = factors
rownames(result) = factors
for (x in 1:count) {
for (y in 1:count) {
result[[x, y]] = round(cor(sample[[x]], sample[[y]]), digits = 3) #兩數列的相關係數,小數點第三位四捨五入
}
}
result
執行結果:
參考來源:
俞洪亮等人(2012)「商管研究資料分析:SPSS的應用」