(●ˇ?ˇ●)

函數 layout()

########畫板不均等的分4部分########

nf <- layout(matrix(c(2,0,1,3),2,2,byrow = TRUE), c(3,1), c(1,3), TRUE)

layout.show(nf)

########按照行對各個部分編號為2，0，1，3； 橫著不均等分：左3/4，右1/4；豎著不均等分：上1/4，下3/4。依次按照1，2，3的先后順序作圖########

一個畫板不均等分為三部分

接下來，就可以按照1，2，3數字順序(沒有數字0)進行畫圖啦！也就是說畫的第一張圖放在1號位置，第二張圖在2號位置，依次類推。

應用

此行目的：欲將Manhattan和QQ-plot圖放在一個畫板上，并且Manhattan占據圖的3/4，QQ-pot僅占據1/4。代碼如下：

library(qqman)

pdf("qqman_gwasResult.pdf", width=18,height=4.5)

layout(matrix(c(1,2),1,2,byrow = TRUE),c(3,1)) #分割畫板為兩部分

manhattan(gwasResults)

qq(gwasResults$P)

dev.off()

出圖啦：

qqman_gwasResult.png

嗯，Manhattan顏色丑！不過此處的目的已經達到了，把兩個圖放在了一起，一個占3/4面積，另一個占1/4。

2019.4.10
(●ˇ?ˇ●)