Question

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

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

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

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

但我无法弄清楚当我简单地调用主函数时，如何访问通常显示的其他信息，特别是特征值以及解释的比例和累积方差。我尝试了rotatecpa $值，但是返回看起来像所有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

一般情况下，如果您对心理治疗方案有任何建议或疑问，如果您直接与我联系，您将获得更快的答案。

比尔

Answer 2

为什么不这样：

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

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

从心理包中的主函数中提取输出作为数据帧

2 个答案: