Espacios en etiqueta del eje cuando se utiliza la expresión (pasta (...))

Question

Consideremos el siguiente ejemplo:

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

Obviamente quiero un espacio lleno entre "g" y "CO", pero por alguna razón obtener un espacio más pequeño (con algunas etiquetas incluso cero) en la etiqueta del gráfico.

El problema es aún más evidente, si lo hago de esta manera:

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

¿Estoy haciendo algo mal? ¿Hay alguna manera de arreglar el espacio o incluso una mejor manera de crear etiquetas con muchos sub/superíndices y letras griegas?

Answer 1

Con toda probabilidad usted es obteniendo un "espacio" tipográficamente correcto, en la fuente que su sistema operativo usa para la visualización no serif. Puede cambiar las fuentes o puede insertar un espacio en blanco que es suficiente para mantener una cadena de caracteres con 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},')'))) 

O como @baptiste señala que esto puede hacerse sin plomath paste utilizando separadores plotmath ordinarios debido a una tilde en una verdadera expresión R obtiene manejado como un "espacio":

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