解读碎石图

选择最优因子数量的常用准则是仅考虑特征值大于 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)