r - 从 psych 包中的主函数中提取输出作为数据框

Question

当我使用主函数时，如下面的代码所示，我得到一个很好的表格，其中给出了所有标准化载荷，以及一个包含特征值以及解释的比例和累积比例的表格。

rotatedpca <- principal(PCFdataset, nfactors = 8, rotate = "varimax", scores = T)

我想将此输出导出到 Excel 文件(使用 WriteXLS)，但我只能对数据帧执行此操作，并且rotatedpca 不是数据帧，并且看起来无法强制转换为数据帧。我可以使用以下代码提取标准化载荷:

loadings<-as.data.frame(unclass(rotatedpca$loadings))

但是我不知道如何访问当我简单调用主函数时通常显示的其他信息，特别是解释的特征值以及比例和累积方差。我尝试了rotatedcpa$values，但是它返回了所有12个原始变量的特征值作为没有旋转的因子，我不明白。而且我还没有找到任何方法来尝试提取方差解释值。例如，如何简单地创建一个类似于下面从主函数获得的 R 输出的数据框？

                       RC2  RC3  RC8  RC1  RC4  RC5  RC6  RC7
SS loadings           1.52 1.50 1.45 1.44 1.01 1.00 0.99 0.98
Proportion Var        0.13 0.12 0.12 0.12 0.08 0.08 0.08 0.08
Cumulative Var        0.13 0.25 0.37 0.49 0.58 0.66 0.74 0.82
Proportion Explained  0.15 0.15 0.15 0.15 0.10 0.10 0.10 0.10
Cumulative Proportion 0.15 0.31 0.45 0.60 0.70 0.80 0.90 1.00

感谢您阅读我的帖子!

Answer 1

我刚刚将此功能添加到最新(截至今天)版本的 psych 1.3.10.11 中。如果您是

 f3 <- fa(Thurstone,3) 
   #or
   p3 <- principal(Thurstone,3)
   #then
   p <- print(f3)
   p # will give you
    p
   $Vaccounted
                            MR1       MR2       MR3
   SS loadings           2.6411150 1.8621522 1.4951831
  Proportion Var        0.2934572 0.2069058 0.1661315
  Cumulative Var        0.2934572 0.5003630 0.6664945
  Proportion Explained  0.4402995 0.3104389 0.2492616
  Proportion            0.4402995 0.7507384 1.0000000

一般来说，如果您对 psych 包有建议或疑问，直接联系我会得到更快的答复。

比尔