如何在R语言中使用atop函数时减小多行轴标签的行间距？

当然可以调整两行标签的间距！atop()函数默认的行间距确实偏宽，咱们可以用几个简单的技巧来优化，下面给你具体的解决方案：

方法1：拆分两次mtext调用（最直观易控） #

不用atop()把两行标签绑在一起，而是分两次调用mtext()，通过调整line参数来精准控制两行的距离。这种方法最灵活，你可以根据需求随意微调：

plot(c(1:10), ylab="")
# 第一行标签，line值稍大
mtext(side=2, line=2.1, 'Mean height of ')
# 第二行标签，line值比第一行小，缩小间距
mtext(side=2, line=1, expression(italic(Dicksonia~antarctica)* ' (m)'))

你可以自己调整line的数值，比如把第一行的2.1改成2.3，第二行的1改成0.8，直到找到你满意的间距。

方法2：在atop()中调整垂直偏移 #

如果你还是想用atop()，可以通过style()函数给第二行标签设置垂直偏移，或者用phantom()来压缩空间：

用style()设置垂直偏移 #

plot(c(1:10), ylab="")
mtext(side=2, line=2, 
      expression(atop('Mean height of ', 
                      style(italic(Dicksonia~antarctica)* ' (m)', voffset=-0.2))))

这里的voffset=-0.2让第二行向上偏移，数值可以根据需要调整（负数向上移，正数向下移）。

用phantom()压缩空间 #

plot(c(1:10), ylab="")
mtext(side=2, line=2, 
      expression(atop('Mean height of ', 
                      italic(Dicksonia~antarctica)* ' (m)' %-% phantom(0)^0.3)))

phantom(0)^0.3相当于给第二行添加了一个向上的“隐形”偏移，从而缩小两行的间距。

方法3：使用plotmath的frac技巧（进阶） #

还有个小技巧是用frac()来模拟行间距，但需要注意不要显示分数线：

plot(c(1:10), ylab="")
mtext(side=2, line=2, 
      expression(frac('Mean height of ', 
                      italic(Dicksonia~antarctica)* ' (m)') * phantom(0)))

这个方法本质是利用frac()的紧凑行高，再用phantom(0)抵消分数线的影响，也能达到缩小间距的效果。

总的来说，方法1的拆分mtext调用是最容易上手和调整的，推荐优先尝试！

内容的提问来源于stack exchange，提问作者LvG