向 ggplot 轴标签添加表达式似乎需要一个额外的字符?

Adding expression to ggplot axis label seems to require an extra character?

我正在绘制一个图,其中我将水平轴缩放了 10000 倍。我一直试图将其包含在我的轴标签中,但一直失败。但是,我发现这是可行的:

g <- g + xlab(expression(paste("Word Count ", (x %.% 10^4))))

但这不是:

g <- g + xlab(expression(paste("Word Count ", (%.% 10^4))))

后者抛出错误“Unexpected special in...”。

如果我要在 LaTeX 中编写我想要的标签,它将是:$\text{Word Count }\left(\cdot 10^4\right)$.

如何在没有额外字符的情况下获得我想要的轴标签?

出于某种原因,expression 需要在左侧添加一些东西。然而,那个东西可以是 NULL,所以这个有效:

g <- g + xlab(expression(paste("Word Count ", (NULL %.% 10^4))))