r - 使用 `plotmath` 显示下标和 `[ ]` 的组合

Question

我想创建一个图，在其中显示平均值和该平均值的置信区间。为此，我使用了 plotmath。这是我所做的有效-

library(ggplot2)

ggplot(mtcars, aes(as.factor(cyl), wt)) + geom_boxplot() +
  labs(
    title = "Mean weight:",
    subtitle = parse(text = paste(
      "list(~italic(mu)==", 3.22, ",", "CI[95~'%'] ", "(", 2.87, ",", 3.57, "))",
      sep = ""
    ))
  )

^{由 reprex package 创建于 2019-08-25 (v0.3.0)}

但这不是我真正想要的。我想要显示这些结果的格式如下-

所以有两件事我似乎无法弄清楚如何使用plotmath:

1. 95 % 应该改为 95%

2. 使用[代替(

我该怎么做？

P.S. 重要的是，由于在这里解释起来很复杂，对我来说，在 paste 函数中包含 list 是很重要的，因为我想将这些表达式保存为数据框中的 character 类型的列。这就是为什么我没有接受下面提供的两个解决方案。

Answer 1

使用显示的公式:

ggplot(mtcars, aes(as.factor(cyl), wt)) + geom_boxplot() +
  labs(
    title = "Mean weight:",
    subtitle = ~italic(mu) == 3.22*', '*"CI"[95*'%']*group('[',2.87*','*3.57,']')
  )