###################################################
问题：一页多图显示 18.4.30
怎么实现，在一页上画多幅图，并且安排图的大小、个数等？？？
解决方案：
open <- par(mfrow = c(2,2),mar=c(3,3,2,1))
r(open)
layout(matrix(1:6,3,2)) #将当前装置分割为3行2列的布局
layout.show(6) #显示布局的编号
layout(matrix(1:6,2,3)) #将当前装置分割为2行3列布局
layout(matrix(c(1:3,3),2,2)) #建立矩阵，将装置分割为3部分
layout(matrix(1:4,2,2),widths=c(1,3),heights=c(3,1)) #将当时装置按照m进行划分，宽度之比为1:3，高度之比为3:1
layout(matrix(c(1,1,2,1),2,2),widths=c(2,1),heights=c(1,2)) #按照矩阵编号进行分割，编号相同的为同一块，宽度为2:1，高度为1:2
layout(matrix(0:3,2,2),c(1,3),c(1,3)) #行为1:3,列为1:3，注意，此矩阵中有0，0是不绘图的，
layout.show(3)
dev.list() # 列出打开装置的列表，
dev.cur()
dev.off() # 关闭当前绘图设备
graphics.off() # 关闭所有绘图设备
讨论扩展：
另请参阅：