R語言繪圖之頁面布局

par()、layout()、split.screen()函數(shù)

1. par()函數(shù)的參數(shù)詳解

函數(shù)par()可以用來設(shè)置或者獲取圖形參數(shù)，par()本身（括號(hào)中不寫任何參數(shù)）返回當(dāng)前的圖形參數(shù)設(shè)置（一個(gè)list）；若要設(shè)置圖形參數(shù)，則可用par(tag = value)的形式，其中tag的詳細(xì)說明參見下面的列，value就是參數(shù)值，例如：

par(mar = c(4, 4, 1, 0.5), bg = "yellow")   # 設(shè)置邊距參數(shù)和背景色

par(pin=c(2,3))   #定義圖形為2英寸寬，3英寸高

par(lwd=2,cex=1.5)   #線條為默認(rèn)的2倍寬，符號(hào)為默認(rèn)的1.5倍

par(cex.axis=0.75,font.axis=3)   #坐標(biāo)軸文字縮放為原來的75%，斜體

col, pch, cex, lty, lwd 這些參數(shù)的意思與par()中的參數(shù)基本相同，有所區(qū)別的是，par()中這些參數(shù)只能設(shè)置一個(gè)單值，而這里可以對(duì)它們?cè)O(shè)置一個(gè)向量，這個(gè)向量的值將依次運(yùn)用到各個(gè)元素上，若向量長度短于元素個(gè)數(shù)，那么向量會(huì)被循環(huán)使用，直到所有的元素都被畫出來，事實(shí)上，向量的循環(huán)使用也是R圖形參數(shù)的一大特點(diǎn)。

2. layout()：mat用矩陣設(shè)置窗口的劃分，矩陣的0元素表示該位置不畫圖，非0元素必須包括從1開始的連續(xù)的整數(shù)值，比如：1……N，按非0元素的大小設(shè)置圖形的順序。widths用來設(shè)置窗口不同列的寬度，heights設(shè)置不同行的高度。par()的mfcol,和mfrow參數(shù)也有類似layout的功能。layout()函數(shù)的一般形式為layout(mat)，mat為一矩陣，mat元素的數(shù)量決定了一個(gè)output device被等分成幾份相同元素為一塊。

layout(matrix(c(1,2,3,0,2,3,0,0,3),nr=3)) matrix有9個(gè)元素，具有這樣的形式：

[,1] [,2] [,3]

[1,]    1    0    0

[2,]    2    2    0

[3,]    3    3    3

把這個(gè)矩陣傳入layout函數(shù)，我們就能得到這樣的output device

如此，figure1占據(jù)了左上角的一個(gè)格子，第二行的前兩個(gè)格子屬于figure2，figure3占滿最下一行的三個(gè)格子。

layout(matrix(1:4,2,2)) #將當(dāng)前裝置分割為矩陣2行2列的布局

[,1] [,2]

[1,]    1    3

[2,]    2    4

layout.show(4) #顯示繪圖裝置分割好的1到4部分；

查看下面代碼的不同之處：

layout(matrix(1:6,3,2)) #將當(dāng)前裝置分割為3行2列的布局

[,1] [,2]

[1,]    1    4

[2,]    2    5

[3,]    3    6

layout.show(6) #顯示布局的編號(hào)

layout(matrix(1:6,2,3))#將當(dāng)前裝置分割為2行3列布局

[,1] [,2] [,3]

[1,]    1    3    5

[2,]    2    4    6

layout.show(6)#顯示布局編號(hào)

layout(matrix(c(1:3,3),2,2)) #建立矩陣，將裝置分割為3部分

[,1] [,2]

[1,]    1    3

[2,]    2    3

layout.show(3) #顯示布局編號(hào)

m<-matrix(1:4,2,2);m  #建立矩陣m,2列2行

layout(m,widths=c(1,3),heights=c(3,1)) #將當(dāng)時(shí)裝置按照m進(jìn)行劃分，寬度之比為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)) #按照矩陣編號(hào)進(jìn)行分割，編號(hào)相同的為同一塊，寬度為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)#保存默認(rèn)設(shè)置

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函數(shù)

split.screen(c(1,2)):將當(dāng)前的繪畫裝置分割為2塊，分別為1號(hào)2號(hào)，可以通過screen(1)或screen(2)進(jìn)行選擇，但此時(shí)的分割通常是按水平分割的，如果進(jìn)行進(jìn)詳細(xì)的分割，可以用layout函數(shù)。

screen()選擇繪圖區(qū)域，screen(n = , new = TRUE)

eraser.screen() 清除選中的繪圖區(qū)域，erase.screen(n = )

close.screen() 移除特定的選區(qū)，close.screen(n, all.screens = FALSE)

screen      Figs中的數(shù)字

split.screen()分割后，其余的函數(shù)才能使用。若無參數(shù)，則返回分割后小區(qū)域的編號(hào)，以向量的形式出現(xiàn)

close.screen退出分割，如果關(guān)閉當(dāng)前的區(qū)域（即分割后的小區(qū)域），則進(jìn)入下一個(gè)小區(qū)域，close.screen(all = TRUE)表示退出分割狀態(tài)

例子：

par(bg = "white") # 白色背景

split.screen(c(2, 1))       # 分為上下兩個(gè)屏，2行1列

split.screen(c(1, 3), screen = 2)  # 將2屏再細(xì)分為3個(gè)小屏，即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個(gè)屏

split.screen(c(1, 2), 2)    # 將下屏分為2個(gè)屏

plot(1:10)                  # 在第3屏繪圖，此時(shí)為當(dāng)前激活的屏

erase.screen()              # 清除當(dāng)前屏

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 = "")  # 加點(diǎn)

axis(4)                     # 右邊加坐標(biāo)軸

title("Plot 1")

close.screen(all = TRUE)    # 退出分屏模式