转载自博客庐州月光，向作者表示感谢
http://www.cnblogs.com/xudongliang/p/6874659.html
在R语言中指定画图边框时，通常使用两种单位， lines 和 inches当然，这两个单位之间是可以相互转换的，那么 1 inch = ? line
答案是1 inches = 5 lines
下面给出具体的分析过程：
par 函数中有两个参数，返回的是margin的宽度，只不过单位不同：
mar : 返回边框的宽度， 返回值的单位为 lines
mai: 返回边框的宽度， 返回值的单位为 inches
看下二者的返回值
> par("mar")
[1] 5.1 4.1 4.1 2.1
> par("mai")
[1] 1.02 0.82 0.82 0.42因为二者返回的是同一个东西, 1.02 inches = 5.1 lines, 所以 1inch = 5 line
明白了不同单位之间的转换比之后，如何利用这些信息，准确的指定边距呢？
看下面这个场景，在图片的右侧通过mtext 添加了一个字符串，但是字符串太长了，所以没显示全
为了显示绘图区域的范围，我用box画出了对应的边框，从图中可以看到，因为座标系和绘图边框之间的距离（也就是margin） 太窄了，所以文字没显示完整。
为了让文字完整显示，需要将右侧的margin调大一点，我们知道，默认的margins = c(5, 4, 4, 2) + 0.1 lines ，最直接的方式就是把右侧对应的数值调大一点，代码如下：
par(oma = c(1,1,1,1), mar = c(5.1, 4.1, 4.1, 5.5))
plot(1:5, 1:5, type = "n")
mtext(side = 4, "metagenome", las = 1)
box(which = "inner")调整完之后，效果图如下：
上述的方法存在的一个问题就是，我需要不断尝试不同的值，直到满足要求为止，而且不能够精确的控制所需边框的宽度，那么有没有解决方案呢？
在R语言中，有strwidth 和strheight两个函数，用来计算一个字符串所占的宽度和长度，返回的长度可以自已选择
通过strwidth计算出 “metagenome” 这个字符所占的宽度，然后将对应的margin设置成这个值就可以了
a <- strwidth("metagenome", units = "inches", cex = 1)
right_margin <- 5 * a
par(oma = c(1,1,1,1), mar = c(5.1, 4.1, 4.1, right_margin))
plot(1:5, 1:5, type = "n")
mtext(side = 4, "metagenome", las = 1)
box(which = "inner")
#strwidth获得的是数值单位是inches，而oma和mar参数中的向量均为lines，故此要×5，统一单位。生成的图片如下：
从图中可以看出，通过这种方式指定边距，非常的精确，不多也不少，保证在所有情况下，都会显示出对应的边距