r - ggplot2 Axis 标签上的数学符号

Question

我想使用 latex2exp 将数学符号添加到 ggplot2 Axis ，但遇到问题，因为 scale_x_discrete() 只接受新标签当名称位于引号之间时，会将 TeX() 函数呈现为文本，如下例所示。如何在更改标签名称的同时包含数学符号？

  p<-ggplot(data=x, aes(x=y, y=x)) +
  geom_errorbar(aes(ymin=x-ci, ymax=x+ci)) +
  scale_x_discrete(breaks=c("label1","label2"),
               labels=c("TeX('$\\alpha^\\beta$')","newlabel2")) 
  p

Answer 1

查看包创建者的这个小插图:

https://cran.r-project.org/web/packages/latex2exp/vignettes/using-latex2exp.html

scale_color_discrete(labels=lapply(sprintf('$\\alpha = %d$', alpha), TeX))

对于您的代码:

p<-ggplot(data=x, aes(x=y, y=x)) +
geom_errorbar(aes(ymin=x-ci, ymax=x+ci)) +
scale_x_discrete(breaks=c("label1","label2"),
               labels = lapply(sprintf('$\\alpha^\\beta$'), TeX)
p

如果您的数学符号不是很复杂，另一个选择是使用 bquote 和 UTF 代码:

mn <- bquote("\u03B1 \u03B2")
labels=c(mn, "newlabel2")