r - 使用表达式时轴标签中的间距(paste(...))

Question

考虑以下示例:

plot(c(2,4,6)~c(1,2,3),xlab="x",
ylab=expression(paste('flux (g ',CO[2]~m^{-2}~h^{-1},')')))

显然我想要“g”和“CO”之间的完整空间，但由于某种原因，我在图形标签中得到了一个更小的(有些标签甚至为零)空间。

如果我这样做，问题就更加明显了:

plot(c(2,4,6)~c(1,2,3),xlab="x",
ylab=expression(paste('flux (g C',O[2]~m^{-2}~h^{-1},')')))

难道我做错了什么？有没有办法修复间距，甚至有更好的方法来创建带有大量下标/上标和希腊字母的标签？

Answer 1

您很可能会在您的操作系统用于非衬线显示的字体中获得一个排版正确的“空格”。您可以更改字体，也可以使用 plotmath phantom() 插入足以容纳特定字符串的空格。 :

 plot(c(2,4,6)~c(1,2,3),xlab="x",
     ylab=expression(paste('flux',phantom(x),'(g ',CO[2]~m^{-2}~h^{-1},')')))

或者正如@baptiste 指出的那样，这可以在没有 plomath 的情况下完成 paste使用普通的 plotmath 分隔符，因为真正的 R 表达式中的波浪号被作为“空格”处理:

     ylab=expression(flux*phantom(x)*(g~CO[2]~m^{-2}~h^{-1})))