在一個屏幕中包含3個不同的R圖

Question

我想知道如何使用下面的矩陣結構將BELOW 3 R圖合併到一個屏幕中？

注：我已經註解了代碼，但最好的方法是運行每個圖以查看它的外觀。

這裏是我的R代碼裏面：

m2 <- matrix(c(0,2,2,2,2,  1,2,2,2,2,  1,2,2,2,2,  0,2,2,2,2 ), nrow=5, ncol=4) # matrix m2 

m3 <- matrix(c(0,2,2,2,2,0, 1,2,2,2,2,3, 1,2,2,2,2,3, 0,2,2,2,2,0), nrow=6, ncol=4) # matrix m3 

TL <- T ## NOW TRUE 

if(TL==T) {layout(m3)}else{layout(m2)} ## IF TL==T, split the screen according to *m3* 


## Plot # 1: ############################################### 
curve(dcauchy(x,0,1),-6,6,yaxt="n",bty="n",xaxs="i",xlab="GG",font.lab=2,lwd=2,col="cyan2",ylab = "") 


## Plot #2: ############################################### 
plot(1, 1, type = "n", xlim = c(0,1.5), ylim = c(.01, 3),log="y", bty="n", axes=F, xaxs="i", 
xlab = "GGG", ylab=expression(paste(bold('BBB'))),font.lab=2,cex.lab=2) 


axis(side=1, at = seq(0,1.5,.25),labels = c("0",".25",".5",".75","1","1.25","1.5")) 
axis(side=2, at = c(.01, 1/30, 1/10, 1/3, 1, 3),labels = c("1/100", "1/30", "1/10", "1/3", "1", "3"),las=1) 

axis(side=4,at = c(.01, 1/30, 1/10, 1/3, 1,3),labels = F) 
axis(side=4,at = c(.01*1.8, (1/30)*1.7, (1/10)*1.8, (1/3)*1.7, 1*1.7), c("YES", "NO", "YES", "NO", "NO"),tick=F,las=1,font=2, 
mgp=c(1.5,.3, 0),cex.axis=1.8) 


## Plot #3: ############################################### 
ci <- c(0.09253967, 0.48434172) 
plot(1, 1, ty="n" ,ann=F, yaxt="n", bty="n", xlim=c(ci[1], ci[2]), ylim=c(0, 1), xaxt="n") 
axis(side = 1, at = ci) 
arrows(ci[1], .01, ci[2], .01, code=3, lwd=2, angle = 90, length = .08) 
mtext(side=1,"GGG",line=2.8, font=2, cex= 1.5) 

Answer 1

嘗試指定的高度和寬度參數layout：我有什麼可能是接近你的目標：

png(height=11, width=8, units="in", res=72) 
if(TL) {layout(m3, widths=c(3, 2,2,3), heights=rep(1.2, ncol(m3))) 
      }else{ 
       layout(m2)} 
    #.... your code here 
dev.off() 

可能仍然需要一些調整的邊緣或mtext的位置，因爲邊上的超大字母似乎擴大了繪製區域的邊緣。