R语言设置或查询图形参数par函数

par可用于设置或查询图形参数。图形参数非常，大多数可以在作图函数中设置，本文列举最常见的应用。

1.设置图像布局

### 1.设置图像布局  
par(mfcol=c(1,2)) #  c(nr, nc)，一行两列 
par(mfrow=c(2,1)) # 两行行一列

2. 图形设备参数恢复默认值

### 2. 图形设备参数恢复默认值
opar <- par(no.readonly = T) # 列表，储存R默认作图参数
par(opar)
plot(1:10)

dev.off() #关闭当前图形设备
plot(1:10) # plot函数打开新的图形设备，参数为默认值

3. 设置图像区域坐标

### 3. 设置图像区域坐标

par(fig=c(0,0.6,0.5,1)) # c(x1, x2, y1, y2)，横向范围0~0.6，纵向范围0.5~1
plot(1:100)

opar<-par(no.readonly = TRUE)
par(fig=c(0,0.8,0,0.9))
plot(mtcars$wt,mtcars$mpg,xlab = "miles per callon",
     ylab = "Car Weight")
par(fig=c(0,0.8,0.50,1),new=TRUE)
boxplot(mtcars$wt,horizontal = TRUE,axes=FALSE)
par(fig=c(0.65,1,0,0.8),new=TRUE)
boxplot(mtcars$mpg,axes=FALSE)

4. 设置背景/前景颜色 

### 4. 设置背景/前景颜色
par(bg="green")
plot(1:100)
par(fg="red")
plot(1:100)

5.边框类型设置

### 5.边框类型设置

# 对应的边框类型和字母形状相似，n-无边框
par(bty="n")  # o,l,7,c,u,],n
# bty is one of "o" (the default), "l", "7", "c", "u", or "]" 
# the resulting box resembles the corresponding upper case letter. 
# A value of "n" suppresses the box.
plot(1:10)

6. 设置坐标轴注释

### 6. 设置坐标轴注释
par(lab=c(10,10,5)) # The default is c(5, 5, 7)
plot(1:10)
# 形式为c（x，y，len）的数字向量，用于修改轴的默认注释方式。
# x和y的值给出x和y轴上的（近似）记号数，len指定标签长度。
# 默认值是c（5,5,7）。
# 请注意，这仅影响在设置用户坐标系时设置参数xaxp和yaxp的方式，
# 并且在绘制轴时不会参考这些参数。len在R中未实现。

7. 设置线段末端样式 

### 7. 设置线段末端样式 
par(lend=0) # 0,1,2
segments(1,5,10,5,lwd=10,col='red')
par(lend=1)
segments(1,7,10,7,lwd=10,col='red')
par(lend=2) # 0,1,2
segments(1,9,10,9,lwd=10,col='red')

8.设置外边界大小

### 8.设置外边界大小
#c(bottom, left, top, right)
par(oma=c(1,2,3,4)) # 距下，左，上，右边距分别是1，2，3，4行
par(omi=c(0.1,0.2,0.3,0.4)) # 单位为英寸
plot(1:10)