r - 是否有适合手动/手动/判断因素/组件轮换的好包？

Question

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

目前，我不是在寻找交互式 GUI（尽管那会非常好），而只是一个 CLI 界面，您可以在其中按下left或right获取更新的绘图，最后说OK.

基线是来自旧PQMethod程序的类似内容。 这是一个简短的视频。

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

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

我在谷歌上搜索了一下，但没有找到（除了psych::factor.rotate().

有什么建议么？

Ps.：如果您对如何使用交互式 GUI 执行此操作有建议，则可以加分。

Pps.: 有人好心qmethod给这个加个标签吗？我没有必要的分数。

Answer 1

我会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