라텍스로 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의 다른 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"로 설정). 그러나이 도구를 사용하여 독립형 그림을 만들 수도 있습니다. 아이러니하게도,이 문제의 가장 어려운 부분은 \textsubscript 명령에 대한 추가 LaTeX의 패키지 (fixltx2e)이 필요한 텍스트 첨자, ...

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를라는 R 패키지가되어지고 한 도움이 될 수 있습니다.

library(latex2exp) 
library(ggplot2) 

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

더 많은 예제가 this vignette에서 찾을 수 있습니다 : 그것은이 예에서와 같이 달러 기호 $로 둘러싸인 일부 LaTeX의 표현을 받아들이는 기능 TeX 있습니다.