R语言绘图布局实例讲解

在R语言中，par 函数可以设置图形边距，其中oma 参数设置outer margin, mar 参数设置margin,

这些边距有什么不同呢，通过box函数可以直观的看到

box 默认在当前图形绘制边框，第一个参数which = "plot", 所以在当前图形上绘制边框

which 的值除了plot 之外，还可以选择 figure, inner, outer

接下来分别用不同的值测试一下，为了区分，为不同的边框设置不同的颜色和类型,代码如下：

attach(mtcars)
plot(wt, mpg)
abline(lm(mpg~wt))
title("Regression of MPG on Weight")
box(which = "plot", col = "red", lwd = 2)
box(which = "figure",col = "blue", lwd = 4)

为了区分，plot的边框为 红色， figure 的边框为 蓝色，效果如下：

可以看出，在figure 区域中包含了plot 区域， plot 区域指的是实际绘图中的坐标系内的区域，里面是坐标系中的点，线等元素，而在figure 和 plot 区域之间的是坐标轴的刻度，x轴和y中的标签，title 等元素

在红色的边框和蓝色的边框之间的区域就是inner margin, 如果inner margin 太窄会发生什么，用一个实际的例子看一下

par(oma=c(1,1,1,1), mar=c(2,2,2,2))
attach(mtcars)
plot(wt, mpg)
abline(lm(mpg~wt))
title("Regression of MPG on Weight")
box(which = "plot", col = "red",  lwd = 2)
box(which = "figure",col = "blue",  lwd = 4)

效果如下：

可以看到，坐标轴对应的标题没有了，通过mar 参数设置了inner margin 的宽度，由于都是1，太窄了，所以坐标轴的标题没显示出来，下次遇到类似的问题，就知道因该将inner margin 设置的大一些

mar 参数的值是一个长度为4的向量，分别对应下，左，上，右 4个方向的inner margin, 只需要记住第一个对应的是下，然后沿逆时针方向设置就可以了；

解决了inner margin 的问题，那么outer margin 有是怎么一回事呢？

在figuer 区域和我们整个绘图设备之间，其实还有一个边距，这个边距就是outer margin, 只不过默认值都是0，所以看不到

接下来我们用oma 参数设置outer margin 的值，将其设置的宽一点，然后再用box 标记出outer 边框和figure 边框，直观的看一下，代码如下：

par(oma=c(2,2,2,2))
attach(mtcars)
plot(wt, mpg)
abline(lm(mpg~wt))
title("Regression of MPG on Weight")
box(which = "plot", col = "red",  lwd = 2)
box(which = "figure",col = "blue",  lwd = 4)
box(which = "outer", col = "black", lty = 8)

图中虚线对应的就是outer 边框，在outer 和 figure 边框之间的就是 outer margin , 通过oma 参数的值来设置outer margin 的宽度，和mar 类似，也是从下方开始，沿着逆时针方向进行设置

通过上面的几个例子，我们就可以看到，在R语言中，在一个绘图设备上有3个不同的边框，最外圈为outer 边框，可以看作整张纸的边沿，而中间的figure 边框才是绘制图形的地方，通过par 函数的oma 参数控制figure 区域的大小；

plot 区域绘制的是坐标系中的元素，在plot 区域和figure 边框之间的inner margin 用来放置坐标轴刻度，标题等元素，通过par 函数的mar 参数可以设置其大小