因子分析 - 按行分配分数

Question

我使用fa运行因子分析，我获得了8个因子（我将只使用其中的5个，SS加载＆gt; 1），现在我想分配给每一行（受访者）我的原始数据集中的每个因素得分。

分数存储在哪里？如何创建五个新列并为每个列分配因子得分？

CorrMatrix是项目的关联矩阵（30x30矩阵）

fa.varimax<-fa(CorrMatrix,nfactors = 8,rotate = "varimax",fm="pa")

原始数据集计数2994个受访者，每行一个受访者

item1 item2 item3 ... item30 1 3 5 ... 4 3 4 2 ... 5

我想要做的是在原始数据集的末尾添加五个新列

factor1 factor2 factor3 factor4 factor5
score1i score2i score3i score4i score5i
score1j score2j score3j score4j score5j

所有2994名受访者

Answer 1

假设您正在使用psych库，因为问题没有说明。 SS加载不直接存储在因子分析中，但可以计算。

library(psych)

fa.loadings <- colSums(fa.varimax$loadings ^ 2)  # calculate factor loading
fa.loadings <- fa.loadings[fa.loadings > 1]  # filter factor loading

参考：https://web.stanford.edu/class/psych253/tutorials/FactorAnalysis.html