2015-04-22 96 views
0

大家好我有3個密度條在任一軸上的密度條,我已經這樣做了(這裏是一個簡單的形式,只有3個普通的情節,但其他部分是必要的需要本人已離開這裏只是爲了便於觀察)標題在R中的劇情畫布中的框架

 scatterBar.Norm <- function(x,y) { 
    zones <- matrix(c(2,0,1,3), ncol=2, byrow=TRUE) 
    layout(zones, widths=c(5/7,2/7), heights=c(2/7,5/7)) 
    title("My Title", outer=TRUE); 
    par(mar=c(3,3,1,1),mgp=c(2,1,0)) 
    plot(1:10, xlab="Magnification", ylab="residue", col=2) 
    par(mar=c(0,3,1,1)) 
    plot(1:10, xlab="Magnification", ylab="residue",col=3) 
    par(mar=c(3,0,1,1)) 
    plot(1:10, xlab="Magnification", ylab="residue", col=4)} 

    scatterBar.Norm(2,3) 

的問題更復雜的功能: 首先在情節標題「我的標題」部分走出去的畫布,如何修理它 ?

感謝您提前所需的幫助。

+3

爲什麼你使用''上B' attach'和'e2'在同一時間?它們具有相同的變量名稱。正因爲這個原因,你應該避免使用'attach'。 – sebpardo

+0

沒有示例數據,這個問題不是[reproducible](http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example)。如果我們不能自己重新創造情節,那麼幫助並不容易。另外,請確保您發佈*最少*可重現的示例。拿出任何不需要的代碼來重現問題。少數幾條線路越容易找到問題。 – MrFlick

+0

使用cex.main來減小字體大小或使用「\ n」將標題分成多行。並且_never_使用附加! –

回答

1

您已經指示R在外邊緣繪製標題,但是(至少在您的示例中)您沒有設置邊距。下面應該工作:

scatterBar.Norm <- function(x, y) { 
    zones <- matrix(c(2, 0, 1, 3), ncol=2, byrow=TRUE) 
    layout(zones, widths=c(5, 2), heights=c(2, 5)) 
    par(mar=c(3, 3, 1, 1), mgp=c(2, 1, 0), oma=c(0, 0, 3, 0)) 
    plot(1:10, xlab="Magnification", ylab="residue", col=2) 
    par(mar=c(0, 3, 1, 1)) 
    plot(1:10, xlab="Magnification", ylab="residue", col=3) 
    par(mar=c(3, 0, 1, 1)) 
    plot(1:10, xlab="Magnification", ylab="residue", col=4) 
    title("My Title", outer=TRUE) 
} 

plot.new() 
scatterBar.Norm(2, 3) 

enter image description here