如何在 ggplot 中添加 2 个字幕并将其中之一设为粗体？

Question

可能很容易，但无法弄清楚：

我想在我的情节中添加两个字幕并将第一个字幕设为粗体，但我找不到一种方法来做到这一点而不扰乱周围的一切。我试过这个：

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  labs(title = expression(""*bold("Title")),
       subtitle = expression(""*bold("First subtitle")*"\nSecond subtitle"))

但对于第二个字幕\n不起作用并保持在同一行。如何将其放在下面而不使其变为粗体？提前致谢！

Answer 1

或者，您可以使用element_markdownfrom ggtext。在那里，您需要使用它<br>来创建换行符。

library(ggplot2)
library(ggtext)
ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  theme(
    plot.title = element_markdown(),
    plot.subtitle = element_markdown()
  ) +
  labs(title = "**Title**",
       subtitle = "**First subtitle**<br>Second subtitle")

^{由reprex 包于 2023 年 1 月 17 日创建(v1.0.0)}