R語言基礎(chǔ)培訓(xùn)第三講 R繪圖

1、R R繪圖基礎(chǔ)繪圖基礎(chǔ)demo(graphics)demo(graphics)R R繪圖演示：繪圖演示：R R繪圖特點：自由繪圖特點：自由2. 2. 常用繪圖函數(shù)常用繪圖函數(shù)2.1 par( ) 2.1 par( ) 和和 plot( )plot( )2.2 2.2 圖形元素圖形元素2.3 2.3 常用圖形繪制常用圖形繪制2.1 par() 2.1 par() 和和 plot(.)plot(.)par( )par( )的功能的功能：用來設(shè)置或者獲取圖形參數(shù)：用來設(shè)置或者獲取圖形參數(shù) 特點特點：設(shè)置后圖形參數(shù)永久改變，除非關(guān)閉繪圖窗口：設(shè)置后圖形參數(shù)永久改變，除非關(guān)閉繪圖窗口參數(shù)參數(shù)：可以進(jìn)行：

2、可以進(jìn)行7070多種參數(shù)設(shè)置，分為兩類：多種參數(shù)設(shè)置，分為兩類：1.1.僅能由僅能由par()par()函數(shù)進(jìn)行設(shè)置的參數(shù)函數(shù)進(jìn)行設(shè)置的參數(shù) ；2.2.也可以由其他繪圖函也可以由其他繪圖函數(shù)進(jìn)行設(shè)置的參數(shù)。數(shù)進(jìn)行設(shè)置的參數(shù)。輸入輸入par( )par( )可以查看可以查看parpar函數(shù)所能設(shè)置的參數(shù)列表函數(shù)所能設(shè)置的參數(shù)列表 par() par() 常用參數(shù)詳解常用參數(shù)詳解bg 設(shè)置圖形背景色設(shè)置圖形背景色bty 設(shè)置圖形邊框樣式；取值為字符設(shè)置圖形邊框樣式；取值為字符o, l, 7, c, u, 之一之一 plot(1:10) plot(1:10) par(bg=red)par(bg=re

3、d) plot(1:10) plot(1:10) par(bty=u) par(bty=u) plot(1:10) plot(1:10) par(bty=l) par(bty=l) plot(1:10) plot(1:10)par() par() 常用參數(shù)詳解常用參數(shù)詳解cex 圖上元素（文本和符號等）的縮放倍數(shù)圖上元素（文本和符號等）的縮放倍數(shù)cex.axis 坐標(biāo)軸刻度標(biāo)記的縮放倍數(shù)坐標(biāo)軸刻度標(biāo)記的縮放倍數(shù)cex.lab 坐標(biāo)軸標(biāo)題的縮放倍數(shù)坐標(biāo)軸標(biāo)題的縮放倍數(shù)cex.main 圖主標(biāo)題的縮放倍數(shù)圖主標(biāo)題的縮放倍數(shù)cex.sub 圖副標(biāo)題的縮放倍數(shù)圖副標(biāo)題的縮放倍數(shù) plot(1:10,

4、xlab=AGB, plot(1:10, xlab=AGB, ylab=Species richness, pch=16, ylab=Species richness, pch=16, main=SPAGB, sub=GTS plot)main=SPAGB, sub=GTS plot) par(cex=1.5, cex.lab=1.5, par(cex=1.5, cex.lab=1.5, cex.axis=1.5, cex.main=1.5, cex.axis=1.5, cex.main=1.5, cex.sub=1.5)cex.sub=1.5) plot(1:10, xlab=AGB, pl

5、ot(1:10, xlab=AGB, ylab=Species richness, pch=16, ylab=Species richness, pch=16, main=SPAGB, sub=GTS plot)main=SPAGB, sub=GTS plot)par() par() 常用參數(shù)詳解常用參數(shù)詳解colcol 圖中符號（點、線等）的顏色圖中符號（點、線等）的顏色col.axiscol.axis 坐標(biāo)軸刻度標(biāo)記的顏色坐標(biāo)軸刻度標(biāo)記的顏色col.labcol.lab 坐標(biāo)軸標(biāo)題的顏色坐標(biāo)軸標(biāo)題的顏色col.maincol.main 圖主標(biāo)題的顏色圖主標(biāo)題的顏色col.subcol.su

6、b 圖副標(biāo)題的顏色圖副標(biāo)題的顏色用用colors( )colors( )函數(shù)可以查看函數(shù)可以查看R R所能設(shè)置的所能設(shè)置的600600多種顏色多種顏色 plot(1:10, xlab=AGB, plot(1:10, xlab=AGB, ylab=Species richness, pch=16, ylab=Species richness, pch=16, main=SPAGB, sub=GTS plot)main=SPAGB, sub=GTS plot) par(col=red, col.lab=brown, par(col=red, col.lab=brown, col.axis=gree

7、n, col.main=yellow, col.axis=green, col.main=yellow, col.sub=pink)col.sub=pink) plot(1:10, xlab=AGB, plot(1:10, xlab=AGB, ylab=Species richness, pch=16, ylab=Species richness, pch=16, main=SPAGB, sub=GTS plot)main=SPAGB, sub=GTS plot)par() par() 常用參數(shù)詳解常用參數(shù)詳解font font 設(shè)置文本字體樣式；取值為一個整數(shù)；設(shè)置文本字體樣式；取值為一個整

8、數(shù)；1 1、2 2、3 3、4 4分別表示正常、分別表示正常、粗體、斜體和粗斜體粗體、斜體和粗斜體font.axisfont.axis 坐標(biāo)軸刻度標(biāo)簽的字體樣式坐標(biāo)軸刻度標(biāo)簽的字體樣式font.labfont.lab 坐標(biāo)軸標(biāo)題的字體樣式坐標(biāo)軸標(biāo)題的字體樣式font.main font.main 圖主標(biāo)題的字體樣式圖主標(biāo)題的字體樣式font.subfont.sub 圖副標(biāo)題的字體樣式圖副標(biāo)題的字體樣式 plot(1:10, xlab=AGB, plot(1:10, xlab=AGB, ylab=Species richness, pch=16, ylab=Species richness, p

9、ch=16, main=SPAGB, sub=GTS plot)main=SPAGB, sub=GTS plot) par(font=1, font.axis=2, par(font=1, font.axis=2, font.lab=3,font.main=4,font.sub=1) font.lab=3,font.main=4,font.sub=1) plot(1:10, xlab=AGB, plot(1:10, xlab=AGB, ylab=Species richness, pch=16, ylab=Species richness, pch=16, main=SPAGB, sub=GT

10、S plot)main=SPAGB, sub=GTS plot)par() par() 常用參數(shù)詳解常用參數(shù)詳解 plot(1:10, xlab=AGB, plot(1:10, xlab=AGB, ylab=Species richness, pch=16, ylab=Species richness, pch=16, main=SPAGB, sub=GTS plot)main=SPAGB, sub=GTS plot)familyfamily 設(shè)置文本的字體族（襯線、無襯線、等寬、符號字體等）設(shè)置文本的字體族（襯線、無襯線、等寬、符號字體等）標(biāo)準(zhǔn)取值有：標(biāo)準(zhǔn)取值有：serif, sans, m

11、ono, symbolserif, sans, mono, symbolpar(family=mono)par(family=mono)plot(1:10, xlab=AGB, ylab=Species plot(1:10, xlab=AGB, ylab=Species richness, pch=16, main=SPAGB, richness, pch=16, main=SPAGB, sub=GTS plot)sub=GTS plot)par() par() 常用參數(shù)詳解常用參數(shù)詳解laslas 坐標(biāo)軸標(biāo)簽樣式，取坐標(biāo)軸標(biāo)簽樣式，取0 0、1 1、2 2、3 3四個整數(shù)之一，表示四個整數(shù)之

12、一，表示“總是平行于坐標(biāo)軸總是平行于坐標(biāo)軸”、“總是水平總是水平”、“總是垂直于坐標(biāo)軸總是垂直于坐標(biāo)軸”和和“總是豎直總是豎直” plot(1:10, xlab=AGB, plot(1:10, xlab=AGB, ylab=Species richness, pch=16, ylab=Species richness, pch=16, main=SPAGB, sub=GTS plot)main=SPAGB, sub=GTS plot) par(las=1) par(las=1) plot(1:10, xlab=AGB, plot(1:10, xlab=AGB, ylab=Species ric

13、hness, pch=16, ylab=Species richness, pch=16, main=SPAGB, sub=GTS plot)main=SPAGB, sub=GTS plot)par() par() 常用參數(shù)詳解常用參數(shù)詳解pchpch 點的符號點的符號, , 用用125125的數(shù)字表示（的數(shù)字表示（21252125可以填充顏色），也可以用任意字符表可以填充顏色），也可以用任意字符表示。示。par(pch=15) par(pch=15) 對應(yīng)的符號就是：對應(yīng)的符號就是：par(pch=“A”) par(pch=“A”) 對應(yīng)的符號就是：對應(yīng)的符號就是：A Apar() par(

14、) 常用參數(shù)詳解常用參數(shù)詳解 plot(1:10, type=l) plot(1:10, type=l) par(lty=2, lwd=3) par(lty=2, lwd=3) plot(1:10, type=l) plot(1:10, type=l)lty lty 線條虛實樣式線條虛實樣式可以設(shè)置為：可以設(shè)置為：0 0 不畫線，不畫線，1 1 實線，實線，2 2 虛線，虛線，3 3 點線，點線，4 4 點劃線，點劃線，5 5 長劃線，長劃線，6 6 點長劃線；或點長劃線；或者相應(yīng)設(shè)置如下字符串：者相應(yīng)設(shè)置如下字符串：blank, solid, blank, solid, dashed, do

15、tted, dotdash, dashed, dotted, dotdash, longdash, twodashlongdash, twodash；還可以用由十六；還可以用由十六進(jìn)制的數(shù)字組成的字符串表示線上實線和空白的進(jìn)制的數(shù)字組成的字符串表示線上實線和空白的相應(yīng)長度，如相應(yīng)長度，如F8F8lwdlwd 線條寬度；默認(rèn)為線條寬度；默認(rèn)為1 1par() par() 常用參數(shù)詳解常用參數(shù)詳解 plot(1,type=n) plot(1,type=n) text(1,1, R Graphics, cex=2) text(1,1, R Graphics, cex=2)srt srt 字符串的旋轉(zhuǎn)

16、角度，取一個角度數(shù)值字符串的旋轉(zhuǎn)角度，取一個角度數(shù)值 par(srt=45) par(srt=45) plot(1,type=n) plot(1,type=n) text(1,1, R Graphics, cex=2) text(1,1, R Graphics, cex=2)par() par() 常用參數(shù)詳解常用參數(shù)詳解mar 設(shè)置圖形邊界空白寬度；設(shè)置圖形邊界空白寬度；按照按照“下、左、上、右下、左、上、右”的順序，默認(rèn)值為的順序，默認(rèn)值為c(5,4, 4, 2) par(mfrow=c(2,2), mar=c(2,2,2,2) par(mfrow=c(2,2), mar=c(2,2,2,

17、2) plot(1);plot(1);plot(1);plot(1) plot(1);plot(1);plot(1);plot(1) par(mfrow=c(2,2) par(mfrow=c(2,2) plot(1);plot(1);plot(1);plot(1) plot(1);plot(1);plot(1);plot(1)par() par() 常用參數(shù)詳解常用參數(shù)詳解xaxs 和和 yaxs 坐標(biāo)軸范圍的計算方式坐標(biāo)軸范圍的計算方式默認(rèn)為默認(rèn)為r ：先把原始數(shù)據(jù)的范圍向外擴(kuò)大：先把原始數(shù)據(jù)的范圍向外擴(kuò)大4%，然后用這個范圍畫坐標(biāo)軸；另，然后用這個范圍畫坐標(biāo)軸；另外一種取值外一種取值i表示

18、直接使用原始數(shù)據(jù)范圍表示直接使用原始數(shù)據(jù)范圍 par(xaxs=i, yaxs=i) par(xaxs=i, yaxs=i) plot(1:10, cex=2, pch=15, xlim=c(0, plot(1:10, cex=2, pch=15, xlim=c(0, 10), ylim=c(0,10)10), ylim=c(0,10) plot(1:10, cex=2, pch=15, plot(1:10, cex=2, pch=15, xlim=c(0, 10), ylim=c(0,10)xlim=c(0, 10), ylim=c(0,10)plot(x, y,.) plot(x, y,.

19、) 常用參數(shù)常用參數(shù)typetype 圖形樣式類型，可取值：圖形樣式類型，可取值：p l b c o h s S p l b c o h s S n n ，分別代表不同的圖形樣式，分別代表不同的圖形樣式此外能使用此外能使用 par( ) par( ) 參數(shù)中的大部分參數(shù)中的大部分 參數(shù)設(shè)置，如設(shè)置顏色，大小，圖標(biāo)參數(shù)設(shè)置，如設(shè)置顏色，大小，圖標(biāo).main main 主標(biāo)題；主標(biāo)題；subsub 副標(biāo)題；副標(biāo)題；xlab xlab x x軸標(biāo)題；軸標(biāo)題；ylab ylab y y軸標(biāo)題軸標(biāo)題aspasp 圖形縱橫軸比例圖形縱橫軸比例y/xy/xxlim, ylim xlim, ylim 設(shè)置坐標(biāo)

20、系的界限設(shè)置坐標(biāo)系的界限loglog 坐標(biāo)是否取對數(shù)，坐標(biāo)是否取對數(shù)，T T或或F Faxesaxes 是否畫坐標(biāo)軸，是否畫坐標(biāo)軸，T T或或F F frame.plot frame.plot 是否給圖形加框，是否給圖形加框，T T或或F Fplot() plot() 練習(xí)練習(xí)(10(10分鐘分鐘) ) data=runif(10) #隨機(jī)產(chǎn)生10個數(shù) plot(x=data) #默認(rèn)方式畫圖，輸入數(shù)據(jù)為一個向量 plot(x=data, y=data2) #對輸入成對的數(shù)據(jù)進(jìn)行畫圖 plot(data, xlab=AGB, ylab=SP, main=AGBSP, sub=GTS) #添加標(biāo)

21、簽 plot(data, col=red) #設(shè)置圖標(biāo)顏色 plot(data, col=red, pch=16) #更改圖標(biāo)的類型 plot(data, col =red, pch=16, cex=3) #更改圖標(biāo)的大小 plot(data, type=l) #更改 type 類型為畫線 plot(data, type=l, lwd=2) # 更改線條的寬度 plot(data, type=l, lwd=2, lty=4) #更改線條的類型 plot(data, type=l, ylim=c(0.4, 0.7) #限制y軸的范圍 plot(data, type=l, frame.plot=F

22、) #不畫邊框2.2 2.2 圖形基本元素圖形基本元素( (低級繪圖函數(shù)低級繪圖函數(shù)) )點點 points( )points( )線線-折線折線lines ( )lines ( )、直線、直線abline( )abline( )、線段、線段segments()segments()、曲線、曲線curve( )curve( )面面-矩形矩形 rect() box( )rect() box( )、多邊形、多邊形 polygon( )polygon( )文本文本text( ) mtext( ) title( )text( ) mtext( ) title( )坐標(biāo)軸坐標(biāo)軸 axis( )axis(

23、)網(wǎng)格線網(wǎng)格線grid()grid()圖例圖例 legend( )legend( )添加點添加點 points(x, y.)points(x, y.)points(x, y = NULL, .)points(x, y = NULL, .)x, y x, y 設(shè)置點的坐標(biāo)位置，其他參數(shù)設(shè)置大部分同設(shè)置點的坐標(biāo)位置，其他參數(shù)設(shè)置大部分同 par() par() 的參數(shù)設(shè)置的參數(shù)設(shè)置練習(xí)練習(xí)（5 5分鐘）分鐘） plot(5, xlim=c(0,10), ylim=c(0,10), type=n) plot(5, xlim=c(0,10), ylim=c(0,10), type=n) # #繪制底圖

24、繪制底圖 points(6,5) points(6,5) # #添加點添加點 points(5,5, pch=15) points(5,5, pch=15) # #更改點的圖標(biāo)更改點的圖標(biāo) points(4,5, pch=15, col=green) points(4,5, pch=15, col=green) # #更改點的顏更改點的顏色色 points(3,5, pch=15, col=green, cex=3) points(3,5, pch=15, col=green, cex=3) # #更改點更改點的大小的大小 data=data.frame(x=1:10, b=runif(2,8

25、,10) data=data.frame(x=1:10, b=runif(2,8,10) # #產(chǎn)生數(shù)據(jù)框產(chǎn)生數(shù)據(jù)框數(shù)據(jù)數(shù)據(jù) points(data$x,data$y, pch=6, col=blue, cex=3) points(data$x,data$y, pch=6, col=blue, cex=3) # #添添加多個點加多個點添加直線添加直線 abline(.)abline(.)abline(a = NULL, b = NULL, h = NULL, v = NULL, reg = NULL .)a a 截距，截距，b b 斜率，斜率，h h是畫水平線時的縱軸值，是畫水平線時的縱軸值，

26、v v 是畫垂直線時的橫軸值，是畫垂直線時的橫軸值，reg reg 是一個能用函數(shù)是一個能用函數(shù)coef()coef()提取系數(shù)（包含斜率和截距）的提取系數(shù)（包含斜率和截距）的R R對象，如提取線性回歸對象，如提取線性回歸生成的對象生成的對象練習(xí)練習(xí)（5 5分鐘）分鐘） data=data.frame(x=1:10, y=runif(10) data=data.frame(x=1:10, y=runif(10) # #產(chǎn)生產(chǎn)生1 1個數(shù)據(jù)框個數(shù)據(jù)框數(shù)據(jù)數(shù)據(jù) plot(data, ylim=c(-1,1) plot(data, ylim=c(-1,1) # #繪制底圖繪制底圖 model=lm(

27、yx, data=data) model=lm(yx, data=data) # #線性回歸線性回歸 abline(model)abline(model) # #將回歸線添加將回歸線添加到圖中到圖中 abline(v=6, h=0, lwd=2, col=red) abline(v=6, h=0, lwd=2, col=red) # #在在x x為為6 6和和y y為為0 0處各添加一條顏色為紅色，粗度為處各添加一條顏色為紅色，粗度為2 2的直線的直線 abline(a=-1, b=0.1, lwd=2, lty=2) abline(a=-1, b=0.1, lwd=2, lty=2) # #

28、添加一條截距添加一條截距為為-1-1，斜率為，斜率為0.10.1的虛線的虛線添加線段添加線段 segments( )segments( )segments( x0, y0, x1, y1,.)segments( x0, y0, x1, y1,.)x0, y0, x1, y1 x0, y0, x1, y1 設(shè)置線段起點和終點的坐標(biāo)設(shè)置線段起點和終點的坐標(biāo)練習(xí)練習(xí)（4 4分鐘）分鐘） plot(5, xlim=c(0,10), ylim=c(0, 10), type=n) #繪制底圖繪制底圖 segments(2,2, 8,8, lwd=2, col=green) #添加起始坐標(biāo)添加起始坐標(biāo)為（為

29、（2, 2） 終點坐標(biāo)為（終點坐標(biāo)為（8, 8），）， 顏色為綠色，粗度為顏色為綠色，粗度為2 的的線段線段 segments(2,1, 8,7, lwd=2, lty=2) # 更改線的類型更改線的類型添加矩形添加矩形 rect( ) rect( ) 和和box( )box( )rect(xleft, ybottom, xright, ytop, density = NULL, angle = 45, col = rect(xleft, ybottom, xright, ytop, density = NULL, angle = 45, col = NA, border = NULL, lt

30、y, lwd.)NA, border = NULL, lty, lwd.)xleft, ybottom, xright, ytop xleft, ybottom, xright, ytop 分別制定左下角和右上角的坐標(biāo)，用來確定矩形分別制定左下角和右上角的坐標(biāo)，用來確定矩形的位置的位置densitydensity 設(shè)置陰影線的填充密度設(shè)置陰影線的填充密度. . 當(dāng)設(shè)為一個正值時，那么顏色填充參數(shù)當(dāng)設(shè)為一個正值時，那么顏色填充參數(shù)colcol將將失效，只有當(dāng)它被設(shè)為負(fù)數(shù)或失效，只有當(dāng)它被設(shè)為負(fù)數(shù)或NANA或或NULLNULL時才可以填充顏色時才可以填充顏色angle angle 設(shè)置填充線條的角

31、度，默認(rèn)為設(shè)置填充線條的角度，默認(rèn)為4545度度borderborder 設(shè)置邊框顏色，若設(shè)置為設(shè)置邊框顏色，若設(shè)置為FALSEFALSE或或NANA，那么將不畫邊框，那么將不畫邊框練習(xí)練習(xí)（8 8分鐘）分鐘）box(.) box(.) 專用于給圖形添加外邊框?qū)Ｓ糜诮o圖形添加外邊框lty lty 和和 lwdlwd 分別設(shè)定邊框和填充線的類型和粗度分別設(shè)定邊框和填充線的類型和粗度 plot(5, xlim=c(0,10), ylim=c(0, 10), type=n) plot(5, xlim=c(0,10), ylim=c(0, 10), type=n) # #繪制底圖繪制底圖 rect(1

32、,1, 3,3) rect(1,1, 3,3) # #添加一個矩形添加一個矩形 rect(3,3, 6,6, density=8) rect(3,3, 6,6, density=8) # # 填充線密度設(shè)置為填充線密度設(shè)置為8 8根根 rect(6,6, 9,9, density=8, angle=15) rect(6,6, 9,9, density=8, angle=15) # #填充線傾斜度設(shè)置為填充線傾斜度設(shè)置為1515度度 rect(1,7, 4,9, col=grey) rect(1,7, 4,9, col=grey) # #灰色填充灰色填充 rect(1,7, 4,9, col=g

33、rey, border=red) rect(1,7, 4,9, col=grey, border=red) # #矩形邊框設(shè)置為紅色矩形邊框設(shè)置為紅色 rect(1,7, 4,9, col=grey, border=red, lwd=3) rect(1,7, 4,9, col=grey, border=red, lwd=3) # #將矩形邊框加將矩形邊框加粗粗 box(lwd=3)box(lwd=3) # #給整個圖加一個粗度為給整個圖加一個粗度為3 3的外邊框的外邊框添加文本添加文本 text( ) ,title ( ) text( ) ,title ( ) 和和mtext( )mtext(

34、 )title(main = NULL, sub = NULL, xlab = NULL, ylab = NULL, line = NA, .)title(main = NULL, sub = NULL, xlab = NULL, ylab = NULL, line = NA, .)用于添加標(biāo)簽用于添加標(biāo)簽main, sub , xlab , ylab main, sub , xlab , ylab 設(shè)置主、副、設(shè)置主、副、x x軸、軸、y y軸的標(biāo)題軸的標(biāo)題line line 設(shè)置設(shè)置 文本與圖形邊緣的距離文本與圖形邊緣的距離text(x, y , labels, .)text(x, y ,

35、 labels, .)用于在繪圖區(qū)域添加文本用于在繪圖區(qū)域添加文本x, y x, y 設(shè)置添加文本的位置設(shè)置添加文本的位置 labelslabels 設(shè)置添加的文本內(nèi)容設(shè)置添加的文本內(nèi)容mtext(text, side = 3, line = 0, .)用于在繪圖框邊緣添加文本用于在繪圖框邊緣添加文本text 添加的文本內(nèi)容添加的文本內(nèi)容 side 表示邊框位置，可選擇表示邊框位置，可選擇1，2，3，4練習(xí)練習(xí)（5 5分鐘）分鐘） plot(1:10) plot(1:10) # #繪制底圖繪制底圖 title(main=AGBSP, line=1) title(main=AGBSP, line

36、=1) # #添加主標(biāo)題添加主標(biāo)題 text(6,4, labels=R Graphics, srt=45, cex=2, font=2) text(6,4, labels=R Graphics, srt=45, cex=2, font=2) # #添加文本，并旋轉(zhuǎn)添加文本，并旋轉(zhuǎn)4545度，放大度，放大2 2倍，粗體倍，粗體 mtext(text=R side text, side=4) mtext(text=R side text, side=4) # #在繪圖框外添加文在繪圖框外添加文本本添加坐標(biāo)軸添加坐標(biāo)軸axis( )axis( )axis(side, at = NULL, labe

37、ls = TRUE, .)axis(side, at = NULL, labels = TRUE, .)side side 添加坐標(biāo)軸的位置，可選值有添加坐標(biāo)軸的位置，可選值有1 1，2 2， 3 3，4 4at at 制定坐標(biāo)軸上刻度出現(xiàn)的位置制定坐標(biāo)軸上刻度出現(xiàn)的位置labels labels 設(shè)定刻度出現(xiàn)位置的標(biāo)簽設(shè)定刻度出現(xiàn)位置的標(biāo)簽練習(xí)練習(xí)（1010分鐘）分鐘） op=par() op=par() # #將默認(rèn)的將默認(rèn)的parpar設(shè)置保存設(shè)置保存 par(mfrow=c(1,2) par(mfrow=c(1,2) # #設(shè)置設(shè)置parpar，繪制一頁多張圖，繪制一頁多張圖 plot

38、(1:12, rnorm(12), xlab=, ylab=, axes=F, pch=18, cex=1.5, plot(1:12, rnorm(12), xlab=, ylab=, axes=F, pch=18, cex=1.5, col=green)col=green) axis(side=1, at=1:12, labels=LETTERS1:12, col.axis = blue) axis(side=1, at=1:12, labels=LETTERS1:12, col.axis = blue) # #添添加坐標(biāo)軸加坐標(biāo)軸 box() box() # #添加外邊框添加外邊框 plo

39、t(1:12, rnorm(12), xlab=, ylab=, axes=F, pch=18, cex=1.5, plot(1:12, rnorm(12), xlab=, ylab=, axes=F, pch=18, cex=1.5, col=green)col=green) axis(side=1, at=seq(2, 12, by=2), labels=LETTERS1:6, col.axis = axis(side=1, at=seq(2, 12, by=2), labels=LETTERS1:6, col.axis = red) red) # #添加坐標(biāo)軸添加坐標(biāo)軸 注意放大繪圖窗口

40、查看變化注意放大繪圖窗口查看變化 axis(2)axis(2) box()box() par(op)par(op) # #回復(fù)默認(rèn)的回復(fù)默認(rèn)的parpar設(shè)置設(shè)置添加網(wǎng)格線添加網(wǎng)格線grid( )grid( )練習(xí)練習(xí)（3 3分鐘）分鐘） plot(300,type=n, xlab=, ylab=, xlim=c(1, plot(300,type=n, xlab=, ylab=, xlim=c(1, 600), ylim=c(1, 400), xaxs=i, yaxs=i)600), ylim=c(1, 400), xaxs=i, yaxs=i) grid(nx=30, ny=20, col=

41、red)grid(nx=30, ny=20, col=red) grid(nx=6, ny=4, col=black, lty=1, lwd=2)grid(nx=6, ny=4, col=black, lty=1, lwd=2) box(lwd=2)box(lwd=2)grid(nx = NULL, ny = nx,.)grid(nx = NULL, ny = nx,.)nxnx 和和 ny ny 分別表示橫縱軸上網(wǎng)格線的條數(shù)分別表示橫縱軸上網(wǎng)格線的條數(shù)添加圖例添加圖例 legend( )legend( ) plot(1:8, type=n, xlim=c(0, 10)plot(1:8, ty

42、pe=n, xlim=c(0, 10) segments( c(2,6), c(2,6), c(6,10), c(6,2), lty=c(1,2), lwd=2)segments( c(2,6), c(2,6), c(6,10), c(6,2), lty=c(1,2), lwd=2) legend(x=0, y=8, legend=c(upwards, downwards), lty=1:2, lwd=2, legend(x=0, y=8, legend=c(upwards, downwards), lty=1:2, lwd=2, bty=n)bty=n) plot(runif(20), pc

43、h=16, col=red , ylim=c(0,1.2), type=b,lty=1)plot(runif(20), pch=16, col=red , ylim=c(0,1.2), type=b,lty=1) points(runif(40), pch=15, col=green, type=b, lty=2)points(runif(40), pch=15, col=green, type=b, lty=2) legend(x=1, y=1.2, legend=c(red point, green square), pch=16:15, legend(x=1, y=1.2, legend

44、=c(red point, green square), pch=16:15, col=c(red, green), lty=1:2)col=c(red, green), lty=1:2) plot(1:8, type=n, xlab=, ylab=, xlim=c(0, 10)plot(1:8, type=n, xlab=, ylab=, xlim=c(0, 10) rect(c(2,6), c(0,0), c(4, 8), c(5, 7), col=2:3)rect(c(2,6), c(0,0), c(4, 8), c(5, 7), col=2:3) legend(x=0, y=8, le

45、gend=c(red, green), fill=2:3, bty=n)legend(x=0, y=8, legend=c(red, green), fill=2:3, bty=n) box(lwd=2) box(lwd=2)練習(xí)練習(xí)（1010分鐘）分鐘）legend(x, y = NULL, legend, fill , lty, pch, lwd, angle, density, bty=n.)legend(x, y = NULL, legend, fill , lty, pch, lwd, angle, density, bty=n.)x x y y 表示圖例的坐標(biāo)位置表示圖例的坐標(biāo)位置

46、（bottomrigt,bottom,bottomleft,left,topleft,top,topright,rightbottomrigt,bottom,bottomleft,left,topleft,top,topright,right）legendlegend 設(shè)置圖例中的文字說明設(shè)置圖例中的文字說明ltylty、lwdlwd和和 pch pch 指定圖例中點線的樣式，設(shè)置與圖中所畫的圖一致指定圖例中點線的樣式，設(shè)置與圖中所畫的圖一致fillfill、angleangle和和density density 用于填充類的圖例設(shè)置，如繪圖內(nèi)容為條形圖時用于條形圖的顏用于填充類的圖例設(shè)置，如

47、繪圖內(nèi)容為條形圖時用于條形圖的顏色、陰影線、線的傾斜度等的設(shè)置色、陰影線、線的傾斜度等的設(shè)置btybty 設(shè)置圖例框的樣式，設(shè)置圖例框的樣式， 通常設(shè)置為通常設(shè)置為nn，不繪制邊框，不繪制邊框2.3 2.3 常用圖形繪制常用圖形繪制 ( (高級繪圖函數(shù)高級繪圖函數(shù)) )散點圖散點圖 plot() plot() 或者或者points()points()餅圖餅圖pieplot()pieplot()直方圖直方圖 hist()hist()條形圖條形圖barplot()barplot()箱圖箱圖boxplot()boxplot()等高線圖等高線圖contour()contour()顏色圖顏色圖image

48、()image()餅圖餅圖 pie( )pie( )pie(x, labels = names(x), .)pie(x, labels = names(x), .)x x 數(shù)值向量數(shù)值向量labelslabels 設(shè)置標(biāo)簽設(shè)置標(biāo)簽練習(xí)練習(xí)（5 5分鐘）分鐘） pie.sales=c(0.12, 0.3, 0.26, 0.16, 0.04, 0.12) pie.sales=c(0.12, 0.3, 0.26, 0.16, 0.04, 0.12) # #數(shù)據(jù)數(shù)據(jù) names(pie.sales) = c(Blueberry, Cherry, Apple, names(pie.sales) = c(

49、Blueberry, Cherry, Apple, Boston Cream, Other, Vanilla Cream) Boston Cream, Other, Vanilla Cream) # #設(shè)置數(shù)據(jù)標(biāo)設(shè)置數(shù)據(jù)標(biāo)簽簽 pie.col = c(purple, violetred1, green3, pie.col = c(purple, violetred1, green3, cornsilk, cyan, white) cornsilk, cyan, white) # #設(shè)置顏色設(shè)置顏色 pie(x=pie.sales, col = pie.col) pie(x=pie.sales,

50、 col = pie.col) # #繪制餅圖繪制餅圖直方圖直方圖hist( )hist( )練習(xí)練習(xí)（1010分鐘）分鐘） par(mfrow=c(2,2), mar=c(2,3,2, 0.5) par(mfrow=c(2,2), mar=c(2,3,2, 0.5) # #繪圖多張繪圖多張 data(geyser, package=MASS) data(geyser, package=MASS) # #調(diào)用數(shù)據(jù)調(diào)用數(shù)據(jù) hist(geyser$waiting, main = (1) freq = TRUE, xlab = waiting) hist(geyser$waiting, main

51、= (1) freq = TRUE, xlab = waiting) hist(geyser$waiting, freq = FALSE, xlab = waiting, main = (2) hist(geyser$waiting, freq = FALSE, xlab = waiting, main = (2) freq = FALSE) freq = FALSE) hist(geyser$waiting, breaks = 5, density = 10, xlab = waiting, hist(geyser$waiting, breaks = 5, density = 10, xla

52、b = waiting, main = (3) breaks = 5)main = (3) breaks = 5) hist(geyser$waiting, breaks = 40, col = red, xlab = waiting, hist(geyser$waiting, breaks = 40, col = red, xlab = waiting, main = (4) breaks = 40)main = (4) breaks = 40)hist(x, breaks = Sturges, freq = NULL,probability = !freq, .)hist(x, break

53、s = Sturges, freq = NULL,probability = !freq, .)x x為欲估計分布的數(shù)值向量；為欲估計分布的數(shù)值向量；breaksbreaks 設(shè)置計算分段區(qū)間的方法，可以設(shè)置為數(shù)字，或其他設(shè)置計算分段區(qū)間的方法，可以設(shè)置為數(shù)字，或其他 （這個參數(shù)決定了直方（這個參數(shù)決定了直方圖的形狀）圖的形狀）freqfreq 和和 probabilityprobability 取邏輯值取邏輯值T T或者或者F F，前者決定是否以頻數(shù)作圖，后者決定是否，前者決定是否以頻數(shù)作圖，后者決定是否以概率密度作圖，兩者互斥以概率密度作圖，兩者互斥條形圖條形圖barplot( )barp

54、lot( )練習(xí)練習(xí)（1010分鐘）分鐘）barplot(height, width = 1, space = NULL, names.arg = NULL, legend.text = barplot(height, width = 1, space = NULL, names.arg = NULL, legend.text = NULL, beside = FALSE, horiz = FALSE, .)NULL, beside = FALSE, horiz = FALSE, .)heightheight 重要參數(shù)，它指定了條圖的長度，這個參數(shù)可以接受數(shù)值向量或者一個數(shù)據(jù)矩陣重要參數(shù)，它指

55、定了條圖的長度，這個參數(shù)可以接受數(shù)值向量或者一個數(shù)據(jù)矩陣（矩陣的列代表變量，行代表不同觀測值）（矩陣的列代表變量，行代表不同觀測值）beside beside 當(dāng)當(dāng)heightheight為矩陣時起作，為矩陣時起作，besidebeside為為TRUETRUE，條圖并排排列，設(shè)為，條圖并排排列，設(shè)為FALSEFALSE為堆砌排為堆砌排列列widthwidth可以設(shè)置條的寬度；可以設(shè)置條的寬度；spacespace用以設(shè)置條之間的間距；用以設(shè)置條之間的間距；names.argnames.arg為條形圖的標(biāo)簽為條形圖的標(biāo)簽legend.text legend.text 用來添加圖例；用來添加圖例；

56、horizhoriz用以設(shè)置條形圖的方向（水平或垂直）用以設(shè)置條形圖的方向（水平或垂直） par(mfrow=c(2,4), mar=c(2,3,2,0.5)par(mfrow=c(2,4), mar=c(2,3,2,0.5) barplot(height=1:3) barplot(height=1:3) # #輸入為向量時的圖輸入為向量時的圖 barplot(height=1:3, col=2:4, space=0.5) barplot(height=1:3, col=2:4, space=0.5) # #輸入為向量時更改顏色和條圖間的輸入為向量時更改顏色和條圖間的間距間距 barplot(

57、height=1:3, col=2:4, space=0.5, horiz=T) barplot(height=1:3, col=2:4, space=0.5, horiz=T) # #條圖方向改為水平條圖方向改為水平 barplot(height=1:3, col=2:4, space=0.5, horiz=T, names.arg=LETTERS1:3) barplot(height=1:3, col=2:4, space=0.5, horiz=T, names.arg=LETTERS1:3) # #添加條形圖的標(biāo)簽添加條形圖的標(biāo)簽 barplot(height=matrix(runif(

58、6), 2,3) barplot(height=matrix(runif(6), 2,3) #height#height輸入為矩陣時輸入為矩陣時 barplot(height=matrix(runif(6), 2,3), beside=T, col=2:3) barplot(height=matrix(runif(6), 2,3), beside=T, col=2:3) #height#height輸入為輸入為矩陣時，矩陣時，besidebeside設(shè)置為設(shè)置為T, T, 并更改顏色并更改顏色 barplot(height=matrix(runif(6), 2,3), beside=T, co

59、l=2:3,ylim=c(0, 2.3), barplot(height=matrix(runif(6), 2,3), beside=T, col=2:3,ylim=c(0, 2.3), legend.text = c(red, green) ) legend.text = c(red, green) ) # #添加圖例添加圖例箱圖箱圖boxplot( )boxplot( )練習(xí)練習(xí)（5 5分鐘）分鐘）boxplot(x, .) boxplot(x, .) ；boxplot(formula, .)boxplot(formula, .)x x 或或 formula formula 設(shè)置繪圖的向量

60、或是一個表達(dá)式設(shè)置繪圖的向量或是一個表達(dá)式horizontalhorizontal為為TURE TURE 或者或者FALSEFALSE，設(shè)定箱線圖是否水平放置，設(shè)定箱線圖是否水平放置 data=data.frame(x=rnorm(12), y=rep(1:3, each=4)data=data.frame(x=rnorm(12), y=rep(1:3, each=4) par(mfrow=c(2,2), mar=c(2,3,2, 0.5)par(mfrow=c(2,2), mar=c(2,3,2, 0.5) boxplot(data$x)boxplot(data$x) boxplot(dat