par（mfrow = ...）来自心理图书馆的多个双时图

Question

当我运行下面的代码时，我没有得到预期的结果。我希望在一个窗口中得到所有的图（当我做一个更简单的plot(1:5)时它会起作用），但是只有最后一个图出现在左上角。

为什么会发生这种情况？如何才能获得所需的行为？

library(psych)
swiss2<-swiss[c(2:6)]
rotations <- c("none", "varimax", "quatimax", 
               "promax", "oblimin", "simplimax")

par(mfrow=c(2,3))
for (current_rotation in rotations){
  biplot(principal(swiss2, nfactors = 2, rotate = current_rotation, scores = T), 
         main = current_rotation)
}

注意：我尝试使用windows()和x11()的不同图形设备。同样的问题。

Answer 1

这是biplot.psych中的一个微妙的错误。

我正在将图形参数重置为biplot.psych出口处的原始设置。 我修改了这个以保持op＆lt; - par（mfrow = c（2,3））＃或者其他什么 设置。

一般情况下，如果你发现心理上的一个错误，如果你让我知道，我会更快地解决它。

比尔

Answer 2

嗯，这里工作正常。

我的第一次尝试失败，出现以下错误消息：

Loading required package: GPArotation
Erreur dans principal(swiss2, nfactors = 2, rotate = current_rotation, scores = T) (depuis #2) :
  I am sorry, to do these rotations requires the GPArotation package to be installed
De plus : Message d'avis :
In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called ‘GPArotation’

您是否安装了包GPArotation？