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

1、R R繪圖基礎(chǔ)繪圖基礎(chǔ)demo(graphics)demo(graphics)R R繪圖演示：繪圖演示：R R繪圖特點(diǎn)：自由繪圖特點(diǎn)：自由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( )的功能的功能：用來(lái)設(shè)置或者獲取圖形參數(shù)：用來(lái)設(shè)置或者獲取圖形參數(shù) 特點(diǎn)特點(diǎn)：設(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 圖上元素（文本和符號(hào)等）的縮放倍數(shù)圖上元素（文本和符號(hào)等）的縮放倍數(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 圖中符號(hào)（點(diǎn)、線等）的顏色圖中符號(hào)（點(diǎn)、線等）的顏色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è)置文本字體樣式；取值為一個(gè)整數(shù)；設(shè)置文本字體樣式；取值為一個(gè)整

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è)置文本的字體族（襯線、無(wú)襯線、等寬、符號(hào)字體等）設(shè)置文本的字體族（襯線、無(wú)襯線、等寬、符號(hào)字體等）標(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四個(gè)整數(shù)之一，表示四個(gè)整數(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 點(diǎn)的符號(hào)點(diǎn)的符號(hào), , 用用125125的數(shù)字表示（的數(shù)字表示（21252125可以填充顏色），也可以用任意字符表可以填充顏色），也可以用任意字符表示。示。par(pch=15) par(pch=15) 對(duì)應(yīng)的符號(hào)就是：對(duì)應(yīng)的符號(hào)就是：par(pch=“A”) par(pch=“A”) 對(duì)應(yīng)的符號(hào)就是：對(duì)應(yīng)的符號(hào)就是：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í)樣式可以設(shè)置為：可以設(shè)置為：0 0 不畫線，不畫線，1 1 實(shí)線，實(shí)線，2 2 虛線，虛線，3 3 點(diǎn)線，點(diǎn)線，4 4 點(diǎn)劃線，點(diǎn)劃線，5 5 長(zhǎng)劃線，長(zhǎng)劃線，6 6 點(diǎn)長(zhǎng)劃線；或點(diǎn)長(zhǎng)劃線；或者相應(yīng)設(shè)置如下字符串：者相應(yīng)設(shè)置如下字符串：blank, solid, blank, solid, dashed, do

15、tted, dotdash, dashed, dotted, dotdash, longdash, twodashlongdash, twodash；還可以用由十六；還可以用由十六進(jìn)制的數(shù)字組成的字符串表示線上實(shí)線和空白的進(jìn)制的數(shù)字組成的字符串表示線上實(shí)線和空白的相應(yīng)長(zhǎng)度，如相應(yīng)長(zhǎ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、角度，取一個(gè)角度數(shù)值字符串的旋轉(zhuǎn)角度，取一個(gè)角度數(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)軸范圍的計(jì)算方式坐標(biāo)軸范圍的計(jì)算方式默認(rèn)為默認(rèn)為r ：先把原始數(shù)據(jù)的范圍向外擴(kuò)大：先把原始數(shù)據(jù)的范圍向外擴(kuò)大4%，然后用這個(gè)范圍畫坐標(biāo)軸；另，然后用這個(gè)范圍畫坐標(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)是否取對(duì)數(shù)，坐標(biāo)是否取對(duì)數(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個(gè)數(shù) plot(x=data) #默認(rèn)方式畫圖，輸入數(shù)據(jù)為一個(gè)向量 plot(x=data, y=data2) #對(duì)輸入成對(duì)的數(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 圖形基本元素圖形基本元素( (低級(jí)繪圖函數(shù)低級(jí)繪圖函數(shù)) )點(diǎn)點(diǎn) 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( )添加點(diǎn)添加點(diǎn) points(x, y.)points(x, y.)points(x, y = NULL, .)points(x, y = NULL, .)x, y x, y 設(shè)置點(diǎn)的坐標(biāo)位置，其他參數(shù)設(shè)置大部分同設(shè)置點(diǎn)的坐標(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) # #添加點(diǎn)添加點(diǎn) points(5,5, pch=15) points(5,5, pch=15) # #更改點(diǎn)的圖標(biāo)更改點(diǎn)的圖標(biāo) points(4,5, pch=15, col=green) points(4,5, pch=15, col=green) # #更改點(diǎn)的顏更改點(diǎn)的顏色色 points(3,5, pch=15, col=green, cex=3) points(3,5, pch=15, col=green, cex=3) # #更改點(diǎn)更改點(diǎn)的大小的大小 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) # #添添加多個(gè)點(diǎn)加多個(gè)點(diǎn)添加直線添加直線 abline(.)abline(.)abline(a = NULL, b = NULL, h = NULL, v = NULL, reg = NULL .)a a 截距，截距，b b 斜率，斜率，h h是畫水平線時(shí)的縱軸值，是畫水平線時(shí)的縱軸值，

26、v v 是畫垂直線時(shí)的橫軸值，是畫垂直線時(shí)的橫軸值，reg reg 是一個(gè)能用函數(shù)是一個(gè)能用函數(shù)coef()coef()提取系數(shù)（包含斜率和截距）的提取系數(shù)（包含斜率和截距）的R R對(duì)象，如提取線性回歸對(duì)象，如提取線性回歸生成的對(duì)象生成的對(duì)象練習(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個(gè)數(shù)據(jù)框個(gè)數(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è)置線段起點(diǎn)和終點(diǎn)的坐標(biāo)設(shè)置線段起點(diǎn)和終點(diǎn)的坐標(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） 終點(diǎn)坐標(biāo)為（終點(diǎn)坐標(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)，用來(lái)確定矩形分別制定左下角和右上角的坐標(biāo)，用來(lái)確定矩形的位置的位置densitydensity 設(shè)置陰影線的填充密度設(shè)置陰影線的填充密度. . 當(dāng)設(shè)為一個(gè)正值時(shí)，那么顏色填充參數(shù)當(dāng)設(shè)為一個(gè)正值時(shí)，那么顏色填充參數(shù)colcol將將失效，只有當(dāng)它被設(shè)為負(fù)數(shù)或失效，只有當(dāng)它被設(shè)為負(fù)數(shù)或NANA或或NULLNULL時(shí)才可以填充顏色時(shí)才可以填充顏色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) # #添加一個(gè)矩形添加一個(gè)矩形 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) # #給整個(gè)圖加一個(gè)粗度為給整個(gè)圖加一個(gè)粗度為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，繪制一頁(yè)多張圖，繪制一頁(yè)多張圖 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è)置圖例中的文字說(shuō)明設(shè)置圖例中的文字說(shuō)明ltylty、lwdlwd和和 pch pch 指定圖例中點(diǎn)線的樣式，設(shè)置與圖中所畫的圖一致指定圖例中點(diǎn)線的樣式，設(shè)置與圖中所畫的圖一致fillfill、angleangle和和density density 用于填充類的圖例設(shè)置，如繪圖內(nèi)容為條形圖時(shí)用于條形圖的顏用于填充類的圖例設(shè)置，如

47、繪圖內(nèi)容為條形圖時(shí)用于條形圖的顏色、陰影線、線的傾斜度等的設(shè)置色、陰影線、線的傾斜度等的設(shè)置btybty 設(shè)置圖例框的樣式，設(shè)置圖例框的樣式， 通常設(shè)置為通常設(shè)置為nn，不繪制邊框，不繪制邊框2.3 2.3 常用圖形繪制常用圖形繪制 ( (高級(jí)繪圖函數(shù)高級(jí)繪圖函數(shù)) )散點(diǎn)圖散點(diǎn)圖 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為欲估計(jì)分布的數(shù)值向量；為欲估計(jì)分布的數(shù)值向量；breaksbreaks 設(shè)置計(jì)算分段區(qū)間的方法，可以設(shè)置為數(shù)字，或其他設(shè)置計(jì)算分段區(qū)間的方法，可以設(shè)置為數(shù)字，或其他 （這個(gè)參數(shù)決定了直方（這個(gè)參數(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ù)，它指定了條圖的長(zhǎng)度，這個(gè)參數(shù)可以接受數(shù)值向量或者一個(gè)數(shù)據(jù)矩陣重要參數(shù)，它指

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

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) # #輸入為向量時(shí)的圖輸入為向量時(shí)的圖 barplot(height=1:3, col=2:4, space=0.5) barplot(height=1:3, col=2:4, space=0.5) # #輸入為向量時(shí)更改顏色和條圖間的輸入為向量時(shí)更改顏色和條圖間的間距間距 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輸入為矩陣時(shí)輸入為矩陣時(shí) 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輸入為輸入為矩陣時(shí)，矩陣時(shí)，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、或是一個(gè)表達(dá)式設(shè)置繪圖的向量或是一個(gè)表達(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