Come annotare() ggplot con latex

Question

Vorrei aggiungere il testo in lattice a un grafico ggplot2 utilizzando annotate(). L'utilizzo di expression(), come descritto in here per l'aggiunta di etichette in lattice su assi, non sembra funzionare. Vale a dire:

# 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") 

Perché sono expression s trattati diversamente da annotate che da altre funzioni ggplot? E come posso annotare con il lattice?

Answer 1

È possibile utilizzare l'argomento parse, senza expression:

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

Answer 2

Il pacchetto tikzDevice è tornato su CRAN (ultima versione 0.9 pubblicata Nov 2015).

L'utilizzo di tikz richiede un'installazione completa di LaTeX; potrebbe essere più facile da fare tramite knitr all'interno di un documento LaTeX (basta impostare dev="tikz" nelle opzioni del blocco). Tuttavia, puoi usarlo anche per creare una figura indipendente. Ironia della sorte, la parte più difficile di questa domanda stava diventando un pedice testo, che richiede un pacchetto LaTeX supplementare (fixltx2e) per il 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

V'è un pacchetto chiamato Rlatex2exp che potrebbe essere utile Ha funzione TeX che accetta alcune espressioni LaTeX chiusa con il segno del dollaro $ come in questo esempio:

library(latex2exp) 
library(ggplot2) 

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

Più esempi si possono trovare in this vignette.