分别使用psych包的principal函数与基础包的prcomp函数对数据集USArrests进行主成分分析。1、principal函数
首先分析主成分个数
fa.parallel(USArrests, fa="pc", n.iter=100)
结果如下：

判定有一个主成分
然后使用principal函数，pc <- principal(USArrests, nfactors=1)
结果如下：

2、使用prcomp函数，pc1 <- prcomp(USArrests, scale.=TRUE)，结果如下：

计算了一下，这两个方法载荷系数不同，请问是怎么回事，求大神解答，谢谢！