11

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

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

我想将此输出导出到一个 excel 文件（使用 WriteXLS），但我只能对数据帧执行此操作，并且 rotatepca 不是数据帧，并且看起来不能强制转换为一个数据帧。我可以使用以下代码提取标准化载荷：

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

感谢您阅读我的帖子！

4

2 回答 2

10

我刚刚将此功能添加到 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 包有任何建议或问题，如果您直接与我联系，您会得到更快的答复。

账单

于 2013-10-12T23:23:44.740 回答
5

为什么不这样：

 capture.output( print(rotatedpca), file="pc.txt")

Text to Columns...您可以使用/Data 菜单下的功能将所需部分读入 Excel 。或者您可以将其粘贴到打开的空白 Excel 文档中，然后选择要转换的行。使用可能会自动提供的“固定”选项。

于 2013-06-28T20:34:59.353 回答