Інтерпретація графіка осипу

Поширений критерій вибору оптимальної кількості факторів — враховувати лише ті, у яких власні значення більші за 1. scree() додає суцільну горизонтальну лінію на рівні 1 по осі y, щоб допомогти швидко інтерпретувати результат. Запустіть код нижче, щоб відтворити графік осипу для даних 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)