साजिश() के किनारों को काटते हुए ग्राफिकल डिवाइस विंडो को कैसे रोकें?

Question

मेरे पास mfrow=c(6,4) साजिश है और एक विशेष स्थिति है जहां मैं प्रत्येक प्लॉट mar=c(1,1,1,1) होना चाहता हूं। इससे ऐसा लगता है कि x-axis और xlab नीचे 4 ग्राफ़ों का कटा हुआ हो जाता है (यहां तक ​​कि जब .eps पर निर्यात किया जाता है)।

मैं R इसे कैसे रोकूं? मैंने postscript("test.eps",height=N) करने का प्रयास किया है जहां N कुछ वास्तविक संख्या है जो डिफ़ॉल्ट से बड़ी है। यह .eps के ऊपर और नीचे में बहुत सी सफेद जगह बनाता है लेकिन x-axis अभी भी काटा गया है।

तो मेरा सवाल है; मुझे को x-axis और xlab को बंद करने के लिए मुझे mfrow और mar को ऊपर वर्णित करना बंद करने के लिए कैसे मिलता है? (मैं शायद डिवाइस के नीचे इतना बड़ा बनाने के लिए देख रहा हूं कि मैं जिस सामान को चाहता हूं उसे काटा नहीं जाता है?)।

यहाँ मेरी भूखंडों है:

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

Answer 1

मैं तुम्हें एक बाहरी मार्जिन (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()