par()函数:用来设置画图参数的函数
par()的作用直到画板被关闭为止
1.设置背景颜色
#设置背景颜色
> par(bg="gray") #设置画板背景色 > plot(rnorm(100)) #如果在plot函数中设置了背景颜色,则会覆盖par命令
#只设置坐标系内的背景颜色 > plot(rnorm(1000),type="n") > x<-par("usr") #提取坐标系范围 > rect(x[1],x[3],x[2],x[4],col="lightgray") #以四个角画背景为浅灰的矩形 > points(rnorm(1000))
2.设置标题、坐标轴标号等颜色
①直接在画图函数里设置
> plot(rnorm(100), + main="Plot Title", + col.axis="blue", #设置坐标抽刻度颜色 + col.lab="red", #设置坐标轴标签颜色 + col.main="darkblue") #设置标题颜色
②使用par()设置
> par(col.axis="black", + col.lab="#444444", + col.main="darkblue") > plot(rnorm(100),main="plot")
③使用title()函数
> plot(rnorm(100)) > title("Sales Figures for 2010", col.main="blue") > title(xlab="Month",ylab="Sales",col.lab="red")
3.设置散点 #pch参数设置散点样式,cex参数设置散点大小
> plot(rnorm(100),pch=1,cex=1) #pch=1画圆圈 > plot(rnorm(100),pch=2,cex=1) #pch=2画三角形 > plot(rnorm(100),pch=3,cex=1) #pch=3画加号 > plot(rnorm(100),pch=19,cex=3) #pch=19,cex=3画较大的实心圆
4.设置线形和宽度 #lty参数设置线形,lwd参数线宽
> rain<-read.csv("cityrain.csv") > plot(rain$Tokyo, + ylim=c(0,250), + type="l", + lty=1, + lwd=2) > lines(rain$NewYork,lty=2,lwd=2) > lines(rain$London,lty=3,lwd=2) > lines(rain$Berlin,lty=4,lwd=2) > legend("top", + legend=c("Tokyo","New York","London","Berlin"), + ncol=4, + cex=0.8, + lty=1:4, + lwd=2)
5.设置坐标轴风格 #bty参数
>par(bty="l") >plot(rnorm(100)) >par(bty="7") >plot(rnorm(100)) >par(bty="c") >plot(rnorm(100)) >par(bty="u") >plot(rnorm(100))
6.设置边框 #box()函数
>par(oma=c(1,1,1,1)) #oma设置边缘宽度 >plot(rnorm(100),bty="l") >box(which="figure") #将figure区域包住
7.设置坐标系刻度 #xaxp和yaxp参数设置坐标系刻度,las参数设置刻度数字方向
> plot(rnorm(100)) #没有xaxp或yaxp参数时自动默认比最值增加4% > plot(rnorm(100),xaxp=c(0,100,10)) #X轴刻度为0~100,分为10等分
> par(las=3) #las参数设置刻度数字的方向
> plot(rnorm(100),xaxp=c(0,100,10)) > plot(rnorm(100),yaxp=c(-2,2,4)) #Y轴刻度为-2~2,分为4等分
8.设置画图区域
> par(fin=c(2,2), #设置画图区域 + pin=c(1,1)) #设置刻度区域 > plot(rnorm(100)) > par(mai=c(1,1,1,1), omi=c(0.1,0.1,0.1,0.1)) #mai和omi控制边缘 > plot(rnorm(100),xaxp=c(0,100,10))