如何使用latex来注释()ggplot

Question

我想将乳胶文本添加到ggplot2图中annotate().使用expression(),描述在这里添加乳胶轴标签,似乎并没有工作.以机智:

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

为什么expressions的处理方式annotate与其他ggplot函数不同？我怎样才能用乳胶注释？

Answer 1

有一个R叫做的包latex2exp可能会有所帮助.它具有TeX接受一些用美元符号括起来的LaTeX表达式的函数,$如下例所示:

library(latex2exp)
library(ggplot2)

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

在这个小插图中可以找到更多的例子.

Answer 2

您可以使用parse参数,而无需expression:

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

Answer 3

该tikzDevice包背在CRAN(最新版本0.9发布2015年11月).

使用tikz确实需要完整的LaTeX安装; knitr在LaTeX文档中进行最简单的操作(只需dev="tikz"在块选项中设置).但是,您也可以使用它来创建独立的数字.具有讽刺意味的是,这个问题最困难的部分是获取文本下标,这需要一个额外的LaTeX包(fixltx2e)来执行\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")