ggplot 标题是否可以包含换行符（与 ggtext 一起使用时）？

Question

library(tidyverse)
library(ggtext)
ggplot(mpg, aes(cty, hwy)) + 
  geom_point() + 
  labs(title = "This is a Title\n") +
  theme(plot.title.position = "plot",
        plot.title = element_markdown(), 
        legend.position = "none")

为什么我不能在我的 ggplot 标题中添加换行符以在标题和面板之间留出一些空白？我知道还有其他方法可以实现此填充，但我想将此问题明确限制为添加空格的换行方法。

我几乎可以肯定我之前已经为轴标题做过此操作，以便在轴标题和绘图面板之间添加空白。为什么\n 在剧情标题中不起作用？

---

使用基于 cmets 的附加信息进行编辑

此代码块会将标题分成两行。

ggplot(mpg, aes(cty, hwy)) +
  geom_point() +
  labs(title = "Line Number One\nLine Number Two") +
  theme(plot.title.position = "plot",
        legend.position = "none")

这个“几乎相同”的代码块不会。最大的问题... 为什么？ 我想在 Markdown 中我需要 <br> 或者两个空格？断线？

ggplot(mpg, aes(cty, hwy)) + 
  geom_point() + 
  labs(title = "The First Line\nThe Second Line") +
  theme(plot.title.position = "plot",
        plot.title = element_markdown(), 
        legend.position = "none")

Answer 1

是的。

选项 1 - 使用 ggtext

使用<br>

library(tidyverse)
library(ggtext)
ggplot(mpg, aes(cty, hwy)) +
  geom_point() +
  labs(title = "This is a Title<br>Another line") +
  theme(plot.title.position = "plot",
        plot.title = element_markdown(),
        legend.position = "none")

ggtext 的好处是您可以使用大量的 markdown/HTML 语法来突出显示/着色/主题文本 ggplot2 标题和标签。

选项 2 - 普通 ggplot2

使用\n

library(tidyverse)
ggplot(mpg, aes(cty, hwy)) +
  geom_point() +
  labs(title = "This is a Title\nAnother line") +
  theme(plot.title.position = "plot",
        legend.position = "none")

Answer 2

您可以使用两个空格，后跟“Return”：

library(ggplot2)
library(ggtext)
ggplot(mpg, aes(cty, hwy)) + 
  geom_point() + 
  labs(title = "This is a Title  
       This is a new line  
       ") +
  theme(plot.title.position = "plot",
        plot.title = element_markdown(), 
        legend.position = "none")

title = "This is a Title \r\nThis is a new line" 也可以。

Answer 3

我采用了最简单的解决方案，在 \n 之前添加两个空格，并且我还需要在换行符之后添加一个不间断空格以获取填充：

library(tidyverse)
library(ggtext)
ggplot(mpg, aes(cty, hwy)) + 
  geom_point() + 
  labs(title = "This is a Title  \n ") +
  theme(plot.title.position = "plot",
        plot.title = element_markdown(), 
        legend.position = "none")