如何用乳胶注释（）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") 

为什么expressions 对annotate 的处理与其他ggplot 函数不同？以及如何使用乳胶进行注释？

Answer 1

有一个名为latex2exp 的R 包可能会有所帮助。它具有函数TeX，它接受一些用美元符号$ 括起来的LaTeX 表达式，如下例所示：

library(latex2exp)
library(ggplot2)

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

更多示例请见this vignette。

Answer 2

您可以使用parse 参数，而不使用expression：

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

Answer 3

tikzDevice 包重新回到 CRAN（2015 年 11 月发布的最新版本 0.9）。

使用tikz 确实需要完整的 LaTeX 安装；在 LaTeX 文档中通过knitr 可能是最简单的（只需在块选项中设置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")