par()、layout()、split.screen()函數
1. par()函數的參數詳解
函數par()可以用來設置或者獲取圖形參數，par()本身（括號中不寫任何參數）返回當前的圖形參數設置（一個list）；若要設置圖形參數，則可用par(tag = value)的形式，其中tag的詳細說明參見下面的列，value就是參數值，例如：
par(mar = c(4, 4, 1, 0.5), bg = "yellow") # 設置邊距參數和背景色
par(pin=c(2,3)) #定義圖形為2英寸寬，3英寸高
par(lwd=2,cex=1.5) #線條為默認的2倍寬，符號為默認的1.5倍
par(cex.axis=0.75,font.axis=3) #坐標軸文字縮放為原來的75%，斜體
col, pch, cex, lty, lwd 這些參數的意思與par()中的參數基本相同，有所區別的是，par()中這些參數只能設置一個單值，而這里可以對它們設置一個向量，這個向量的值將依次運用到各個元素上，若向量長度短於元素個數，那么向量會被循環使用，直到所有的元素都被畫出來，事實上，向量的循環使用也是R圖形參數的一大特點。
2. layout()：mat用矩陣設置窗口的划分，矩陣的0元素表示該位置不畫圖，非0元素必須包括從1開始的連續的整數值，比如：1……N，按非0元素的大小設置圖形的順序。widths用來設置窗口不同列的寬度，heights設置不同行的高度。par()的mfcol,和mfrow參數也有類似layout的功能。layout()函數的一般形式為layout(mat)，mat為一矩陣，mat元素的數量決定了一個output device被等分成幾份相同元素為一塊。
layout(matrix(c(1,2,3,0,2,3,0,0,3),nr=3)) matrix有9個元素，具有這樣的形式：
[,1] [,2] [,3]
[1,] 1 0 0
[2,] 2 2 0
[3,] 3 3 3
把這個矩陣傳入layout函數，我們就能得到這樣的output device
如此，figure1占據了左上角的一個格子，第二行的前兩個格子屬於figure2，figure3占滿最下一行的三個格子。
layout(matrix(1:4,2,2)) #將當前裝置分割為矩陣2行2列的布局
[,1] [,2]
[1,] 1 3
[2,] 2 4
layout.show(4) #顯示繪圖裝置分割好的1到4部分；
查看下面代碼的不同之處：
layout(matrix(1:6,3,2)) #將當前裝置分割為3行2列的布局
[,1] [,2]
[1,] 1 4
[2,] 2 5
[3,] 3 6
layout.show(6) #顯示布局的編號
layout(matrix(1:6,2,3))#將當前裝置分割為2行3列布局
[,1] [,2] [,3]
[1,] 1 3 5
[2,] 2 4 6
layout.show(6)#顯示布局編號
layout(matrix(c(1:3,3),2,2)) #建立矩陣，將裝置分割為3部分
[,1] [,2]
[1,] 1 3
[2,] 2 3
layout.show(3) #顯示布局編號
m<-matrix(1:4,2,2);m #建立矩陣m,2列2行
layout(m,widths=c(1,3),heights=c(3,1)) #將當時裝置按照m進行划分，寬度之比為1:3，高度之比為3:1
layout.show(4)
m<-matrix(c(1,1,2,1),2,2);m #建立矩陣
layout(m,widths=c(2,1),heights=c(1,2)) #按照矩陣編號進行分割，編號相同的為同一塊，寬度為2:1，高度為1:2
layout.show(2)
m<-matrix(0:3,2,2)#，注意，此矩陣中有0，0是不繪圖的，可以查看一下效果
layout(m,c(1,3),c(1,3)) #行為1:3,列為1:3
layout.show(3)
2. 案例一：
attach(mtcars)
opar<-par(no.readonly=TRUE)#保存默認設置
par(mfrow=c(2,2))#將畫布分割為2*2格局
plot(wt,mpg,main="Scatterplot of wt vs. mpg")
plot(wt,disp,main="Scatterplot of wt vs disp")
hist(wt, main="Histogram of wt")
boxplot(wt,mian="Boxplot of wt")
par(opar)
detach(mtcars)
案例二：
attach(mtcars)
opar<-par(no.readonly=TRUE)
par(mfrow=c(3,1))# 將畫布分割為3行，1列格局
hist(wt)
hist(mpg)
hist(disp)
par(opar)
detach(mtcars)
案例三：
attach(mtcars)
layout(matrix(c(1,1,2,3),2,2,byrow = TRUE))
hist(wt)
hist(mpg)
hist(disp)
detach(mtcars)
3. split.screen函數
split.screen(c(1,2)):將當前的繪畫裝置分割為2塊，分別為1號2號，可以通過screen(1)或screen(2)進行選擇，但此時的分割通常是按水平分割的，如果進行進詳細的分割，可以用layout函數。
screen()選擇繪圖區域，screen(n = , new = TRUE)
eraser.screen() 清除選中的繪圖區域，erase.screen(n = )
close.screen() 移除特定的選區，close.screen(n, all.screens = FALSE)
screen Figs中的數字
split.screen()分割后，其余的函數才能使用。若無參數，則返回分割后小區域的編號，以向量的形式出現
close.screen退出分割，如果關閉當前的區域（即分割后的小區域），則進入下一個小區域，close.screen(all = TRUE)表示退出分割狀態
例子：
par(bg = "white") # 白色背景
split.screen(c(2, 1)) # 分為上下兩個屏，2行1列
split.screen(c(1, 3), screen = 2) # 將2屏再細分為3個小屏，即2屏分為1行3列
screen(1) # 選中1屏
plot(10:1)
screen(4) # 選4屏
plot(10:1)
close.screen(all = TRUE) # 退出分屏模式
split.screen(c(2, 1)) # 分為上下2個屏
split.screen(c(1, 2), 2) # 將下屏分為2個屏
plot(1:10) # 在第3屏繪圖，此時為當前激活的屏
erase.screen() # 清除當前屏
plot(1:10, ylab = "ylab 3")
screen(1) # 選1屏
plot(1:10)
screen(4) # 激活4屏
plot(1:10, ylab = "ylab 4")
screen(1, FALSE) # 返回1屏，但不清空1屏，如果為screen(1,TRUE)，則清空1屏
plot(10:1, axes = FALSE, lty = 2, ylab = "") # 加點
axis(4) # 右邊加坐標軸
title("Plot 1")
close.screen(all = TRUE) # 退出分屏模式