用 Latex 表达式覆盖 ggplot 轴标签

问题描述

如何使用通过 latex2exp package 计算/打印的乳胶表达式覆盖轴文本（连接到 tix 的文本，而不是轴标题）？

重命名轴文本的常用方法不起作用：

MWE

df <- data.frame(x=c("a","b"),y=c(1,2))
ggplot(df,aes(x,y))+
  geom_point()+
  scale_x_discrete(labels=c(TeX("$Test^{89}$"),TeX("$Oh_{i,j}^{99}$")))

解决方法

刚刚发现 - 它与this question有关。基本上，您需要将 unname() 包裹起来。

df <- data.frame(x=c("a","b"),y=c(1,2))
ggplot(df,aes(x,y))+
  geom_point()+
  scale_x_discrete(labels=unname(TeX(
    c("$Test^{89}$","$Oh_{i,j}^{99}$"))))