ggplot2中plotmath表达式中的不规则粗体

Question

我希望能够将参数从函数传递到ggplot图和上的标签中，以使该标签以粗体显示。 Unicode无法使用，因为许多Unicode符号无法呈现为pdf。 Plotmath表达式 可以在paste()中分开，这使其非常适合此类工作，但是我无法弄清楚如何使Plotmath bold(x)表达式变为粗体整个编译后的字符串。

例如，此代码...

y <- 5
(g <- ggplot(data.frame(x = rnorm(100,0,1)), aes(x)) +
      geom_histogram(bins = 100, fill = "skyblue") +
      annotate("text", x = 1.5, y = 4, label = paste0("bold(x<=", y, "^{2})"), parse = T))

...产量...

如您所见，特殊字符（小于或等于）已经很好了。但是问题是x粗体显示，而不是其余字符串。如何以使我仍然可以将外部对象y传递给字符串的方式加粗整个字符串？