R语言-优化作图

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))