Cómo anotar() ggplot con látex

Question

Me gustaría agregar texto de látex a un diagrama de ggplot2 usando annotate(). El uso de expression(), como se describe en here para agregar etiquetas de látex a eje, no parece funcionar. A saber:

# Use expression() to create subscripted text 
p <- ggplot(mpg, aes(x=cty, y=hwy)) + geom_point() + 
    scale_x_continuous(expression(text[subscript])) 

# But expression() in annotate adds nothing to the plot 
p + annotate("text", x=10, y=40, label=expression(text[subscript])) 

# Passing regular text to annotate works fine 
p + annotate("text", x=10, y=40, label="foo") 

¿Por qué expression s tratados de manera diferente por annotate que por otras funciones ggplot? ¿Y cómo puedo hacer anotaciones con látex?

Answer 1

Usted puede utilizar el argumento parse, sin expression:

p + annotate("text", x=10, y=40, label="text[subscript]", parse=TRUE) 

Answer 2

El tikzDevice paquete está de vuelta en CRAN (última versión 0.9 publicada Nov 2015).

El uso de tikz requiere una instalación completa de LaTeX; puede ser más fácil de hacer a través de knitr dentro de un documento LaTeX (simplemente configure dev="tikz" en las opciones de fragmento). Sin embargo, puede usarlo para crear una figura independiente también. Irónicamente, la parte más difícil de esta pregunta era conseguir un subíndice texto, que requiere un paquete de LaTeX adicional (fixltx2e) para el comando \textsubscript ...

library(tikzDevice) 
## add a package to the defaults 
options(tikzLatexPackages= 
      c(getOption("tikzLatexPackages"),"\\usepackage{fixltx2e}")) 
tikz("tikz.tex",standAlone=TRUE) 
library("ggplot2"); theme_set(theme_bw()) 
p <- ggplot(mpg, aes(x=cty, y=hwy)) + geom_point() + 
    scale_x_continuous(name="text\\textsubscript{subscript}") 
p + annotate("text", x=10, y=40, label="text\\textsubscript{subscript}") 
dev.off() 

system("pdflatex tikz.tex") 

Answer 3

hay un paquete llamado Rlatex2exp cuales puede ser útil. Tiene función TeX que acepta algunas expresiones LaTeX cerrados con signo de dólar $ como en este ejemplo:

library(latex2exp) 
library(ggplot2) 

qplot(1, "A")+ 
    ylab(TeX("Formula: $\\frac{2hc^2}{\\lambda^\\beta}$"))+ 
    xlab(TeX("$\\alpha$")) 

Más ejemplos se pueden encontrar en this vignette.