par函数详解（下）| 缤纷灿烂R语言 | 医学方R语言高阶课程

原创 Dr.Leopard 医学方

引导关注

这是一个有态度的公众号

“医学方”由一批临床医师和科研人创立，始终致力于服务“医学人”，将最前沿、最有价值的临床、科研原创文章推送给各位临床医师、科研人员

既往“缤纷灿烂R语言（R语言高阶课程）”推文

1.R语言作图！R语言作图！R语言作图！说三遍！！| 【缤纷灿烂R语言】| R语言高阶课程

2.基础包中的降龙十八掌：par函数详解（上）| 【缤纷灿烂R语言】| R语言高阶课程

第三期：par函数详解（下）

医学方R语言高阶课程：缤纷灿烂R语言

hello，大家伙，我是Leopard！我们废话少说，紧接着上一期的步伐，继续介绍par()函数的其他几个参数。

lwd（使用指数：五颗星）：线条宽度，默认为1，类似于cex参数。见图1-1-6。

par(mfrow=c(2,3))

for(i in 1:6){

par(lty=i,lwd=i)

plot(1:5,type = 'l',main = paste('the lty is',i,sep = ':'),sub = paste('the lwdis',i,sep = ':'))}

图1-1-6

mar（使用指数：四颗星）：设置图形边界空白宽度，按照顺时针方向，下，左，上，右。
mfrow, mfcol(使用指数：五颗星)：分割画布参数，取值为mfrow = c(nrow, ncol)，即将画布切分为n行n列。这个参数在前文介绍过。mfcol与mfrow类似。
mgp(使用指数：三颗星)：设置坐标轴到画布边缘的宽度，取值为mgp = c(x,y,z)，默认为mgp=c(3,1,0)，分别表示坐标轴标题、坐标轴刻度线标签和坐标轴线的距离大小。
pch(使用指数：五颗星)：设置点的形状(图1-1-7)。1-25个点分别代表25个不同的点的形状，其中21-25是可以有背景色填充的。

plot(rep(1:5,times= 5), rep(1:5,each = 5), pch = 1:25, cex = 1.5,

bty= 'l', xlim = c(1,5.4))

text(rep(1:5,times= 5)+0.15,rep(1:5,each = 5),labels = 1:25,col = 'red')

图1-1-7

srt(使用指数：四颗星)：控制字符串的旋转角度参数。取值0-360，也就是一个角度值。（见图1-1-8）

plot(1:25,pch=1)

text(x=c(5,10,20),y=c(7,15,10),col='red',labels=c('I love R','I love you', 'I love Fudan'),srt=30)

#text()是低级绘图函数，详见后文。

图1-1-8

tck，tcl（使用指数：三颗星）：这两个参数都表示坐标轴刻度线的高度，前者取值是与图形宽高的比例值（-1~1之间），后者取值是与文本行高的比例值。负值表示坐标轴刻度向外，正值表示向内。
usr(使用指数：三颗星)：表示画布的大小，取值为usr=c(x1,x2,y1,y2)，分别表示画布x轴的左右极限，y轴的下上极限。如果你的坐标轴进行了log变换，那么usr参数的实际值都是相应参数的10次幂。
xaxt,yaxt(使用指数：三颗星)：坐标轴样式，默认是‘s’，即标准样式。如果你不需要坐标轴，或者是需要自定义坐标轴，那么此处可以设置为‘n’，即表示不画坐标轴。
xlog,ylog(使用指数：四颗星):顾名思义，log转换参数，默认是FALSE。
fig(使用指数三颗星)：该参数接受一个数值向量，取值为fig = c(x1, x2, y1, y2)。最主要的功能就是当你要在当前的画布上添加一幅新图时，配合new=TRUE参数使用。如图1-1-9.

n <- 1000

x <- rnorm(n) #生成服从正态分布的1000个随机数

qqnorm(x) #对这1000个随机数进行正态性检验

qqline(x,col="red") #添加正态拟合线

op <- par(fig=c(.02,.5,.5,.98), new=TRUE)

#设置par函数参数，fig参数定义了新图形的四个角的位置

hist(x,probability=T,

col="lightblue", xlab="", ylab="", main="",axes=F)

#开始画新图形

lines(density(x),col="red", lwd=2) #绘制密度曲线

box() #给新图形加上边框

par(op) #释放参数

图1-1-9

以上21个参数，都是par()函数的较为常用的。其中，有一些参数只能在par()中实现，而绝大部分参数可以在高级绘图函数中实现，效果等同于在par()中实现。下面列出的参数只能在par()中设置和实现。

ask;fig; fin; lheight; mai; mar; mfcol; mfrow; mfg; new; oma; omd; omi;pin; plt; ps; pty; usr; xlog; ylog.

此外，有一点非常值得注意，par()函数对于图形参数的改变是永久性的，这是什么意思呢，意思是说，当你打开R，直至R关闭，par()函数中的参数对于你所作的每张图都管用。但是现实情况是，我们有时候只需要一次调用par，而不希望它一直工作。此时，有两个办法：其一，在作图之前，将par()函数中的所有参数保存为一个实名对象，等到图形绘制完毕，将这个实名对象释放出来即可；其二，比较简单粗暴，图形绘制完毕后，直接调用dev.off()函数关闭绘图框，这样就不会影响下一幅图了。方法一的结果如代码所示：