2012-08-27 7 views
5

私はmfrow=c(6,4)のプロットと、それぞれのプロットをmar=c(1,1,1,1)にする特別な状況があります。これにより、下の4つのグラフのx-axisxlabが切り捨てられるようになります(.epsにエクスポートしても)。plot()の端を切り取るグラフィカルデバイスウィンドウを停止する方法は?

これを行うにはどうすればよいですか?R私はpostscript("test.eps",height=N)を実行しようとしました。ここで、Nは、デフォルトよりも大きい実数です。これにより、.epsの上部と下部に多くの空白ができますが、x-axisはまだ切り取られています。

私の質問です。上記のmfrowmarを指定するという制約がある場合、plot()は私のx-axisxlabを切断しないようにするにはどうすればよいですか? (私はおそらく、デバイスの底部を大きくして、私が望むものが切り刻まれないようにするための何らかの方法を探しています)。

はここに私のプロットだ:私はあなたが目盛りラベルをクリップしないように、外側の余白(oma)を追加し、取得するためにmtextと軸ラベルをプロット示唆

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() 

答えて

3

それをデフォルトの位置よりも近いです。

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() 

enter image description here

関連する問題