1

以下のコードを実行すると、期待した結果が得られません。1 つのウィンドウですべてのプロットを取得することを期待しますが (単純化すると機能します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()ました。同じ問題。

4

2 に答える 2

2

これは、biplot.psych の微妙なバグでした。

biplot.psych の終了時に、グラフィック パラメータを元の設定にリセットしていました。op <- par(mfrow=c(2,3)) #またはその他の設定を維持するようにこれを変更しました。

一般的に、精神的なバグを見つけた場合は、私に知らせていただければ、より迅速に修正します。

明細書

于 2013-06-09T17:14:56.827 に答える
0

まあ、ここではうまくいきます。

私の最初の試みは、次のエラーメッセージで失敗しました:

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インストールされていますか?

ここに画像の説明を入力

于 2013-02-14T09:23:13.217 に答える