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

添加文本 text( ) ,title ( ) 和mtext( ) title(main = NULL, sub = NULL, xlab = NULL, ylab = NULL, line = NA, ...) 用于添加标签 main, sub , xlab , ylab 设置主、副、x轴、y轴的标题 line 设置 文本与图形边缘的距离 text(x, y , labels, ...) 用于在绘图区域添加文本 x, y 设置添加文本的位置 labels 设置添加的文本内容 mtext(text, side = 3, line = 0, ...) 用于在绘图框边缘添加文本 text 添加的文本内容 side 表示边框位置，可选择1，2，3，4 练习（5分钟） plot(1:10) #绘制底图 title(main=AGB~SP, line=1) #添加主标题 text(6,4, labels=R Graphics, srt=45, cex=2, font=2) #添加文本，并旋转45度，放大2倍，粗体 mtext(text=R side text, side=4) #在绘图框外添加文本 第二十七页，共四十九页。 添加坐标轴axis( ) axis(side, at = NULL, labels = TRUE, ...) side 添加坐标轴的位置，可选值有1，2， 3，4 at 制定坐标轴上刻度出现的位置 labels 设定刻度出现位置的标签 练习（10分钟） op=par() #将默认的par设置保存 par(mfrow=c(1,2)) #设置par，绘制一页多张图 plot(1:12, rnorm(12), xlab=, ylab=, axes=F, pch=18, cex=1.5, col=green) axis(side=1, at=1:12, labels=LETTERS[1:12], col.axis = blue) #添加坐标轴 box() #添加外边框 plot(1:12, rnorm(12), xlab=, ylab=, axes=F, pch=18, cex=1.5, col=green) axis(side=1, at=seq(2, 12, by=2), labels=LETTERS[1:6], col.axis = red) #添加坐标轴 注意放大绘图窗口查看变化 axis(2) box() par(op) #回复默认的par设置 第二十八页，共四十九页。 添加网格线grid( ) 练习（3分钟） plot(300,type=n, xlab=, ylab=, xlim=c(1, 600), ylim=c(1, 400), xaxs=i, yaxs=i) grid(nx=30, ny=20, col=red) grid(nx=6, ny=4, col=black, lty=1, lwd=2) box(lwd=2) grid(nx = NULL, ny = nx,...) nx 和 ny 分别表示横纵轴上网格线的条数 第二十九页，共四十九页。 添加图例 legend( ) plot(1:8, type=n, xlim=c(0, 10)) 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, bty=n) 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) legend(x=1, y=1.2, legend=c(red point, green square), pch=16:15, col=c(red, green), lty=1:2) 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) legend(x=0, y=8, legend=c(red, green), fill=2:3, bty=n) box(lwd=2) 练习（10分钟） legend(x, y = NULL, legend, fill , lty, pch