因子分析 - 按行分配分数

Question

我用fa进行因子分析，我获得了8个因子（我将只使用其中的5个因子，SS Loading> 1的因子），现在我想分配给每行（我调查的受访者）对我原始数据集的每个因素的分数。

分数存储在哪里？我如何创建五个新列，并为其中的每个分配因子分数？

CorrMatrix是项目的相关矩阵（30×30矩阵）

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

原始数据集计算2994名受访者中，一位受访者每行

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

我想要做的是什么在原始数据集的末尾添加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