###################################################
問題：一頁多圖顯示 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() # 關閉所有繪圖裝置
討論擴充套件：
另請參閱：