(●ˇ∀ˇ●)

函数 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
(●ˇ∀ˇ●)