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

Question

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

目前，我不是寻找交互式 GUI（虽然那真的很不错），但只是一个 CLI 界面，您可以在其中按 left或 right 并获取更新的地块，最后说 OK.

基线与遗留 PQMethod 程序类似。这里是 a short video.

我目前的方法是使用 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

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

Is there a good package for by-hand / manual / judgmental factor / component rotation?

r

pca

rotational-matrices

psych