R语言基础培训第三讲 R绘图

1、R R绘图基础绘图基础demo(graphics)demo(graphics)R R绘图演示：绘图演示：R R绘图特点：自由绘图特点：自由2. 2. 常用绘图函数常用绘图函数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( )的功能的功能：用来设置或者获取图形参数：用来设置或者获取图形参数 特点特点：设置后图形参数永久改变，除非关闭绘图窗口：设置后图形参数永久改变，除非关闭绘图窗口参数参数：可以进行：

2、可以进行7070多种参数设置，分为两类：多种参数设置，分为两类：1.1.仅能由仅能由par()par()函数进行设置的参数函数进行设置的参数 ；2.2.也可以由其他绘图函也可以由其他绘图函数进行设置的参数。数进行设置的参数。输入输入par( )par( )可以查看可以查看parpar函数所能设置的参数列表函数所能设置的参数列表 par() par() 常用参数详解常用参数详解bg 设置图形背景色设置图形背景色bty 设置图形边框样式；取值为字符设置图形边框样式；取值为字符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() 常用参数详解常用参数详解cex 图上元素（文本和符号等）的缩放倍数图上元素（文本和符号等）的缩放倍数cex.axis 坐标轴刻度标记的缩放倍数坐标轴刻度标记的缩放倍数cex.lab 坐标轴标题的缩放倍数坐标轴标题的缩放倍数cex.main 图主标题的缩放倍数图主标题的缩放倍数cex.sub 图副标题的缩放倍数图副标题的缩放倍数 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() 常用参数详解常用参数详解colcol 图中符号（点、线等）的颜色图中符号（点、线等）的颜色col.axiscol.axis 坐标轴刻度标记的颜色坐标轴刻度标记的颜色col.labcol.lab 坐标轴标题的颜色坐标轴标题的颜色col.maincol.main 图主标题的颜色图主标题的颜色col.subcol.su

6、b 图副标题的颜色图副标题的颜色用用colors( )colors( )函数可以查看函数可以查看R R所能设置的所能设置的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() 常用参数详解常用参数详解font font 设置文本字体样式；取值为一个整数；设置文本字体样式；取值为一个整

8、数；1 1、2 2、3 3、4 4分别表示正常、分别表示正常、粗体、斜体和粗斜体粗体、斜体和粗斜体font.axisfont.axis 坐标轴刻度标签的字体样式坐标轴刻度标签的字体样式font.labfont.lab 坐标轴标题的字体样式坐标轴标题的字体样式font.main font.main 图主标题的字体样式图主标题的字体样式font.subfont.sub 图副标题的字体样式图副标题的字体样式 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() 常用参数详解常用参数详解 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 设置文本的字体族（衬线、无衬线、等宽、符号字体等）设置文本的字体族（衬线、无衬线、等宽、符号字体等）标准取值有：标准取值有：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() 常用参数详解常用参数详解laslas 坐标轴标签样式，取坐标轴标签样式，取0 0、1 1、2 2、3 3四个整数之一，表示四个整数之

12、一，表示“总是平行于坐标轴总是平行于坐标轴”、“总是水平总是水平”、“总是垂直于坐标轴总是垂直于坐标轴”和和“总是竖直总是竖直” 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() 常用参数详解常用参数详解pchpch 点的符号点的符号, , 用用125125的数字表示（的数字表示（21252125可以填充颜色），也可以用任意字符表可以填充颜色），也可以用任意字符表示。示。par(pch=15) par(pch=15) 对应的符号就是：对应的符号就是：par(pch=“A”) par(pch=“A”) 对应的符号就是：对应的符号就是：A Apar() par(

14、) 常用参数详解常用参数详解 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 线条虚实样式线条虚实样式可以设置为：可以设置为：0 0 不画线，不画线，1 1 实线，实线，2 2 虚线，虚线，3 3 点线，点线，4 4 点划线，点划线，5 5 长划线，长划线，6 6 点长划线；或点长划线；或者相应设置如下字符串：者相应设置如下字符串：blank, solid, blank, solid, dashed, do

15、tted, dotdash, dashed, dotted, dotdash, longdash, twodashlongdash, twodash；还可以用由十六；还可以用由十六进制的数字组成的字符串表示线上实线和空白的进制的数字组成的字符串表示线上实线和空白的相应长度，如相应长度，如F8F8lwdlwd 线条宽度；默认为线条宽度；默认为1 1par() par() 常用参数详解常用参数详解 plot(1,type=n) plot(1,type=n) text(1,1, R Graphics, cex=2) text(1,1, R Graphics, cex=2)srt srt 字符串的旋转

16、角度，取一个角度数值字符串的旋转角度，取一个角度数值 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() 常用参数详解常用参数详解mar 设置图形边界空白宽度；设置图形边界空白宽度；按照按照“下、左、上、右下、左、上、右”的顺序，默认值为的顺序，默认值为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() 常用参数详解常用参数详解xaxs 和和 yaxs 坐标轴范围的计算方式坐标轴范围的计算方式默认为默认为r ：先把原始数据的范围向外扩大：先把原始数据的范围向外扩大4%，然后用这个范围画坐标轴；另，然后用这个范围画坐标轴；另外一种取值外一种取值i表示

18、直接使用原始数据范围表示直接使用原始数据范围 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、) 常用参数常用参数typetype 图形样式类型，可取值：图形样式类型，可取值：p l b c o h s S p l b c o h s S n n ，分别代表不同的图形样式，分别代表不同的图形样式此外能使用此外能使用 par( ) par( ) 参数中的大部分参数中的大部分 参数设置，如设置颜色，大小，图标参数设置，如设置颜色，大小，图标.main main 主标题；主标题；subsub 副标题；副标题；xlab xlab x x轴标题；轴标题；ylab ylab y y轴标题轴标题aspasp 图形纵横轴比例图形纵横轴比例y/xy/xxlim, ylim xlim, ylim 设置坐标

20、系的界限设置坐标系的界限loglog 坐标是否取对数，坐标是否取对数，T T或或F Faxesaxes 是否画坐标轴，是否画坐标轴，T T或或F F frame.plot frame.plot 是否给图形加框，是否给图形加框，T T或或F Fplot() plot() 练习练习(10(10分钟分钟) ) data=runif(10) #随机产生10个数 plot(x=data) #默认方式画图，输入数据为一个向量 plot(x=data, y=data2) #对输入成对的数据进行画图 plot(data, xlab=AGB, ylab=SP, main=AGBSP, sub=GTS) #添加标

21、签 plot(data, col=red) #设置图标颜色 plot(data, col=red, pch=16) #更改图标的类型 plot(data, col =red, pch=16, cex=3) #更改图标的大小 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 图形基本元素图形基本元素( (低级绘图函数低级绘图函数) )点点 points( )points( )线线-折线折线lines ( )lines ( )、直线、直线abline( )abline( )、线段、线段segments()segments()、曲线、曲线curve( )curve( )面面-矩形矩形 rect() box( )rect() box( )、多边形、多边形 polygon( )polygon( )文本文本text( ) mtext( ) title( )text( ) mtext( ) title( )坐标轴坐标轴 axis( )axis(

23、)网格线网格线grid()grid()图例图例 legend( )legend( )添加点添加点 points(x, y.)points(x, y.)points(x, y = NULL, .)points(x, y = NULL, .)x, y x, y 设置点的坐标位置，其他参数设置大部分同设置点的坐标位置，其他参数设置大部分同 par() par() 的参数设置的参数设置练习练习（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) # #更改点的图标更改点的图标 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) # #产生数据框产生数据框数据数据 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 是一个能用函数是一个能用函数coef()coef()提取系数（包含斜率和截距）的提取系数（包含斜率和截距）的R R对象，如提取线性回归对象，如提取线性回归生成的对象生成的对象练习练习（5 5分钟）分钟） data=data.frame(x=1:10, y=runif(10) data=data.frame(x=1:10, y=runif(10) # #产生产生1 1个数据框个数据框数据数据 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 设置线段起点和终点的坐标设置线段起点和终点的坐标练习练习（4 4分钟）分钟） plot(5, xlim=c(0,10), ylim=c(0, 10), type=n) #绘制底图绘制底图 segments(2,2, 8,8, lwd=2, col=green) #添加起始坐标添加起始坐标为（为

29、（2, 2） 终点坐标为（终点坐标为（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 分别制定左下角和右上角的坐标，用来确定矩形分别制定左下角和右上角的坐标，用来确定矩形的位置的位置densitydensity 设置阴影线的填充密度设置阴影线的填充密度. . 当设为一个正值时，那么颜色填充参数当设为一个正值时，那么颜色填充参数colcol将将失效，只有当它被设为负数或失效，只有当它被设为负数或NANA或或NULLNULL时才可以填充颜色时才可以填充颜色angle angle 设置填充线条的角

31、度，默认为设置填充线条的角度，默认为4545度度borderborder 设置边框颜色，若设置为设置边框颜色，若设置为FALSEFALSE或或NANA，那么将不画边框，那么将不画边框练习练习（8 8分钟）分钟）box(.) box(.) 专用于给图形添加外边框专用于给图形添加外边框lty lty 和和 lwdlwd 分别设定边框和填充线的类型和粗度分别设定边框和填充线的类型和粗度 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) # # 填充线密度设置为填充线密度设置为8 8根根 rect(6,6, 9,9, density=8, angle=15) rect(6,6, 9,9, density=8, angle=15) # #填充线倾斜度设置为填充线倾斜度设置为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) # #矩形边框设置为红色矩形边框设置为红色 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, .)用于添加标签用于添加标签main, sub , xlab , ylab main, sub , xlab , ylab 设置主、副、设置主、副、x x轴、轴、y y轴的标题轴的标题line line 设置设置 文本与图形边缘的距离文本与图形边缘的距离text(x, y , labels, .)text(x, y ,

35、 labels, .)用于在绘图区域添加文本用于在绘图区域添加文本x, y x, y 设置添加文本的位置设置添加文本的位置 labelslabels 设置添加的文本内容设置添加的文本内容mtext(text, side = 3, line = 0, .)用于在绘图框边缘添加文本用于在绘图框边缘添加文本text 添加的文本内容添加的文本内容 side 表示边框位置，可选择表示边框位置，可选择1，2，3，4练习练习（5 5分钟）分钟） plot(1:10) plot(1:10) # #绘制底图绘制底图 title(main=AGBSP, line=1) title(main=AGBSP, line

36、=1) # #添加主标题添加主标题 text(6,4, labels=R Graphics, srt=45, cex=2, font=2) text(6,4, labels=R Graphics, srt=45, cex=2, font=2) # #添加文本，并旋转添加文本，并旋转4545度，放大度，放大2 2倍，粗体倍，粗体 mtext(text=R side text, side=4) mtext(text=R side text, side=4) # #在绘图框外添加文在绘图框外添加文本本添加坐标轴添加坐标轴axis( )axis( )axis(side, at = NULL, labe

37、ls = TRUE, .)axis(side, at = NULL, labels = TRUE, .)side side 添加坐标轴的位置，可选值有添加坐标轴的位置，可选值有1 1，2 2， 3 3，4 4at at 制定坐标轴上刻度出现的位置制定坐标轴上刻度出现的位置labels labels 设定刻度出现位置的标签设定刻度出现位置的标签练习练习（1010分钟）分钟） op=par() op=par() # #将默认的将默认的parpar设置保存设置保存 par(mfrow=c(1,2) par(mfrow=c(1,2) # #设置设置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) # #添添加坐标轴加坐标轴 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) # #添加坐标轴添加坐标轴 注意放大绘图窗口

40、查看变化注意放大绘图窗口查看变化 axis(2)axis(2) box()box() par(op)par(op) # #回复默认的回复默认的parpar设置设置添加网格线添加网格线grid( )grid( )练习练习（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 分别表示横纵轴上网格线的条数分别表示横纵轴上网格线的条数添加图例添加图例 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)练习练习（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 表示图例的坐标位置表示图例的坐标位置

46、（bottomrigt,bottom,bottomleft,left,topleft,top,topright,rightbottomrigt,bottom,bottomleft,left,topleft,top,topright,right）legendlegend 设置图例中的文字说明设置图例中的文字说明ltylty、lwdlwd和和 pch pch 指定图例中点线的样式，设置与图中所画的图一致指定图例中点线的样式，设置与图中所画的图一致fillfill、angleangle和和density density 用于填充类的图例设置，如绘图内容为条形图时用于条形图的颜用于填充类的图例设置，如

47、绘图内容为条形图时用于条形图的颜色、阴影线、线的倾斜度等的设置色、阴影线、线的倾斜度等的设置btybty 设置图例框的样式，设置图例框的样式， 通常设置为通常设置为nn，不绘制边框，不绘制边框2.3 2.3 常用图形绘制常用图形绘制 ( (高级绘图函数高级绘图函数) )散点图散点图 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 数值向量数值向量labelslabels 设置标签设置标签练习练习（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) # #数据数据 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) # #设置数据标设置数据标签签 pie.col = c(purple, violetred1, green3, pie.col = c(purple, violetred1, green3, cornsilk, cyan, white) cornsilk, cyan, white) # #设置颜色设置颜色 pie(x=pie.sales, col = pie.col) pie(x=pie.sales,

50、 col = pie.col) # #绘制饼图绘制饼图直方图直方图hist( )hist( )练习练习（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) # #调用数据调用数据 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为欲估计分布的数值向量；为欲估计分布的数值向量；breaksbreaks 设置计算分段区间的方法，可以设置为数字，或其他设置计算分段区间的方法，可以设置为数字，或其他 （这个参数决定了直方（这个参数决定了直方图的形状）图的形状）freqfreq 和和 probabilityprobability 取逻辑值取逻辑值T T或者或者F F，前者决定是否以频数作图，后者决定是否，前者决定是否以频数作图，后者决定是否以概率密度作图，两者互斥以概率密度作图，两者互斥条形图条形图barplot( )barp

54、lot( )练习练习（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 重要参数，它指定了条图的长度，这个参数可以接受数值向量或者一个数据矩阵重要参数，它指

55、定了条图的长度，这个参数可以接受数值向量或者一个数据矩阵（矩阵的列代表变量，行代表不同观测值）（矩阵的列代表变量，行代表不同观测值）beside beside 当当heightheight为矩阵时起作，为矩阵时起作，besidebeside为为TRUETRUE，条图并排排列，设为，条图并排排列，设为FALSEFALSE为堆砌排为堆砌排列列widthwidth可以设置条的宽度；可以设置条的宽度；spacespace用以设置条之间的间距；用以设置条之间的间距；names.argnames.arg为条形图的标签为条形图的标签legend.text legend.text 用来添加图例；用来添加图例；

56、horizhoriz用以设置条形图的方向（水平或垂直）用以设置条形图的方向（水平或垂直） 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) # #添加条形图的标签添加条形图的标签 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设置为设置为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( )练习练习（5 5分钟）分钟）boxplot(x, .) boxplot(x, .) ；boxplot(formula, .)boxplot(formula, .)x x 或或 formula formula 设置绘图的向量

60、或是一个表达式设置绘图的向量或是一个表达式horizontalhorizontal为为TURE TURE 或者或者FALSEFALSE，设定箱线图是否水平放置，设定箱线图是否水平放置 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