r - R psych 包 - 在 PCA 之后使用 mat.sort() 对相关矩阵进行排序

Question

在主成分分析之后，我试图让我的原始相关矩阵的变量以与（排序的）负载矩阵相同的方式排序（如 print.psych 所示）。我使用了 psych 包中的以下功能，但我无法让两者对齐。

pc <- principal(myCorrMatrix$correlations, nfactors=15, n.obs=49, rotate="oblimin")
print.psych(pc, cut=0.3, sort=TRUE)

sortedPC <- fa.sort(pc)
sortedMatrix <- mat.sort(myCorrMatrix$correlations, sortedPC)

我不是 100% 确定 mat.sort 的第二个参数应该是什么，但我尝试了 sortedPC 的几个元素都无济于事。任何指针将不胜感激！

Answer 1

不要fa.sort()传给mat.sort(). mat.sort()需要一个 fa 对象，其中包含 $loadings。请注意，这principal()也给出了结果对象中的 $loadings。我认为这应该有效：

sortedMatrix <- mat.sort(myCorrMatrix$correlations, pc)

这是一个例子：

data(Bechtoldt.1)
sorted <- mat.sort(Bechtoldt.1,principal(Bechtoldt.1,5))
cor.plot(sorted)