因子分析 - 按行分配分數

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