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

Question

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

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

但这不会：

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

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

如果我要在 LaTeX 中编写我想要的标签，它会是：$\text{字数}\left(\cdot 10^4\right)$。

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

Answer 1

无论出于何种原因，expression左侧都需要一些东西。但是，这可以是NULL，所以这是有效的：

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