如何从字符串输入列表中自定义 ggplot2 中的轴标签？

Question

我正在生成一堆图，并将适当的轴标签存储在我的图中的列表中：

labels_list <- c("C[max,1] (mg/L)", "AUC[ 6wks,1 ] (mg*day/L)", "somethingElse[subscriptText] (units*might/have*symbols)")

我的目标是创建方括号中的文本为下标的标签。 我一直在使用parse()没关系，除了：

• 我不知道如何让轴标签变粗，尽管它是在我的自定义 ggplot 主题中指定的
• 星号消失。

我知道bquote()是一个选项，但是如果我只想提供一个字符串列表作为上面的输入，我还没有弄清楚如何使用它。 我绝对愿意接受所提供的任何建议和解决方案。

编辑：似乎我不能按原样使用我的字符串输入？ labels_list是从数据框中提取的，我希望不必为了绘图目的而一个一个地更改它。 :-(

Answer 1

这是一种带有expression和bold的方法：

labels_list <- c(expression(bold(C[max * ',' * 1]~(mg/L))), 
                  expression(bold(AUC["6wks"*','*1]~(mg * '*' * day/L))),
                  expression(bold(somethingElse[subscriptText]~(units * '*' * might/have * '*' *symbols))))

ggplot(data = data.frame(x = 1, y = 1), aes(x,y)) +
  geom_point() + 
  labs(x = labels_list[1], y = labels_list[2], caption = labels_list[3])