ラテックスでggplotをアノテートする方法

Question

annotate()を使用してggplot2プロットにラテックステキストを追加したいと思います。 expression()を使用すると、軸ラベルにラテックスを添加するためのhereのように機能していないようです。ウィットに：

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

はなぜexpression sが他のggplot機能によって、よりannotateによって異なる扱いをされますか？ラテックスにはどのように注釈を付けることができますか？

Answer 1

あなたはexpressionせずに、parse引数を使用することができます。

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

Answer 2

tikzDeviceパッケージはバックCRAN（2015年11月公開される最新バージョン0.9）です。

tikzを使用するには完全なLaTeXインストールが必要です。 LaTeX文書内でknitr経由で行うのが最も簡単です（ちょうどチャンクオプションでdev="tikz"に設定されています）。ただし、これを使用してスタンドアロンのFigureを作成することもできます。皮肉なことに、この質問の最も難しい部分は...

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

を\textsubscriptコマンドの追加のLaTeXのパッケージ（fixltx2e）が必要ですテキスト添字を、取得されたlatex2expと呼ばれるRパッケージがあります役に立つかもしれません。

library(latex2exp) 
library(ggplot2) 

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

より多くの例がthis vignetteで見つけることができます：それは、この例のようにドル記号$で囲まれたいくつかのLaTeXの式を受け付ける関数TeXを持っています。