r - 是否有用于手动/手动/判断因素/组件旋转的良好包装？

Closed. This question does not meet Stack Overflow guidelines。它当前不接受答案。












想改善这个问题吗？更新问题，以使为on-topic。

5年前关闭。



Improve this question





我正在尝试添加一个函数，以手动（或手动或判断性地）将因子加载矩阵从主成分分析旋转到qmethod R包。
手动旋转，如下所示：一个指定旋转任何给定因子对的角度。
（是的，这很奇怪，但是在Q Methodology中才有意义。）

现在，我不是在寻找交互式GUI（尽管那真的很不错），而是一个CLI界面，您可以在其中按left或right并获取更新的图，最后说出OK。

基线是来自旧版PQMethod程序的类似内容。

这是a short video。

我当前的方法是使用psych::factor.rotate()，并在更新绘图的基础上编写一个具有交互性的CLI界面（如right，left，OK）。

不过，我想知道是否有人还没有这样做。

我用google搜索了一下，但是很简短（甚至找不到psych::factor.rotate()以外的手动旋转过程。

有什么建议？

附言：如果您对如何使用交互式GUI做到这一点有任何建议，请加分。

提示：有人愿意为此添加qmethod标签吗？我没有必要的要点。

最佳答案

我会尝试manipulate-类似以下内容：

library(psych)
library(manipulate)
l <- l_orig <- unclass(loadings(principal(Harman.5, 2, scores=TRUE)))
manipulate(
  {
    if(rotateRight)
      l <<- factor.rotate(l, angle, 1, 2)
    if (rotateLeft)
      l <<- factor.rotate(l, -1*angle, 1, 2)

    plot(l, xlim = c(-1, 1), ylim = c(-1, 1), xlab = 1, ylab = 2); abline(v = 0); abline(h = 0)
  },
  angle = slider(1, 90, step=1, initial = 1, label = "Angle"),
  rotateRight = button(">"),
  rotateLeft = button("<")
)
l; l_orig

关于r - 是否有用于手动/手动/判断因素/组件旋转的良好包装？ ，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/31234443/