r - 如何使用 latex 注释() ggplot

Question

我想使用 annotate() 将 latex 文本添加到 ggplot2 图中。使用表达式()，如所述 here将 latex 添加到轴标签似乎不起作用。也就是说:

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

为什么annotate对表达式的处理方式与其他ggplot函数不同？我怎样才能用 latex 注释？

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中找到.