6

私にはmfrow=c(6,4)プロットがあり、各プロットをにしたいという特別な状況がありますmar=c(1,1,1,1)。これにより、下の4つのグラフのx-axisxlabが切り取られるようになります(にエクスポートする場合でも.eps)。

これをやめるにはどうすればよいRですか?デフォルトよりも大きい実数postscript("test.eps",height=N)がどこにあるか試してみました。Nこれにより、上部と下部に多くの空白が作成されます.epsが、x-axisそれでもカットされます。

だから私の質問は; どうすれば自分plot()の切断をやめ、上記のような制約x-axisxlab与えることができますか?(私はおそらく、必要なものが切り落とされないように、デバイスの下部を大きくする方法を探していますか?)mfrowmar

これが私のプロットです:

postscript("test.eps")
y <- rnorm(100)
x <- rnorm(100)

par(mfrow=c(6,4),mar=c(1,1,1,1))

for(i in 1:((6*4)))
{
    if(i <= (6*4)-4)
    {
    plot(y,x,xlab="",xaxt="n")
    }
    if(i > (6*4)-4)
    {
    plot(y,x,xlab="HELLO")
    }
}
dev.off()
4

1 に答える 1

3

目盛りラベルをクリップしないように外側の余白(oma)を追加し、軸ラベルをプロットしmtextてデフォルトの位置よりも近づけることをお勧めします。

postscript("test.eps")
y <- rnorm(100)
x <- rnorm(100)

par(mfrow=c(6,4),mar=c(1,1,1,1), oma=c(3,1,0,0))

for(i in 1:((6*4)))
{
    if(i <= (6*4)-4)
    {
    plot(y,x,xlab="",xaxt="n")
    }
    if(i > (6*4)-4)
    {
    plot(y,x,xlab="")
    mtext("HELLO", 1, 2.5)
    }
}
dev.off()

ここに画像の説明を入力してください

于 2012-08-27T07:38:21.020 に答える