解讀碎石圖（scree plot）

選擇最佳因子數的一個常用準則，是只考慮特徵值大於 1 的因子。scree() 會在 y 軸的 1 畫出一條實心水平線，幫助你快速解讀結果。請執行下方程式碼，重現你在上一個練習以 bfi_EFA 資料建立的碎石圖。根據結果，建議有多少個因子？

# Calculate the correlation matrix
bfi_EFA_cor <- cor(bfi_EFA, use = "pairwise.complete.obs")

# Use the correlation matrix to create the scree plot
scree(bfi_EFA_cor, factors = FALSE)