Nasıl lateks ile ggplot ek açıklama()

Question

annotate() kullanarak bir ggplot2 çizimine lateks metni eklemek istiyorum. Eksen etiketlerine lateks eklemek için here açıklandığı gibi expression()'u kullanmak işe yaramıyor. Şöyle ki:

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

Neden expression ler diğer ggplot fonksiyonları tarafından daha annotate tarafından farklı olarak ele alınır? Lateks ile nasıl ekleyebilirim?

Answer 1

Sen expression olmadan parse argüman, kullanabilirsiniz:

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

Answer 2

tikzDevice paket geri CRAN üzerinde (Kasım 2015 yayınlanan son sürümü 0.9) 'dir.

tikz kullanımı tam bir LaTeX yüklemesini gerektirir; Bir LaTeX belgesinde knitr aracılığıyla yapılması en kolay yol olabilir (yalnızca yığın seçeneklerinde dev="tikz" olarak ayarlayın). Bununla birlikte, bunu bağımsız bir figür oluşturmak için de kullanabilirsiniz. İronik olarak, bu sorunun zor kısmı \textsubscript komut için ek bir LaTeX paketi (fixltx2e) gerektiren bir metin alt simgesi ...

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

latex2exp adında bir R paket var olduğu başlamıştı ki yardımcı olabilir.

library(latex2exp) 
library(ggplot2) 

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

fazla örnek this vignette bulunabilir: Bu örnekte olduğu gibi dolar işareti $ ile kapalı bazı LaTeX ifadeleri kabul işlevi TeX sahiptir.