r - ggtitle 中的自动换行

Question

有没有办法在 ggtitle 中强制自动换行命令？
作为 Shiny 应用程序的一部分，我使用不同的绘图和标题的输入变量。
不幸的是，其中一些变量值太长而无法显示。
我通过插入 \n 发现了一种可能性(或换行)提前手动(详情请见: Improve editing of multiline title in ggplot that uses \n and extends far to the right )。在那里，类似 ggtitle(paste("", title, "", sep = "\n"))会被建议。
由于包括 \n会容易出错，而且对于不同的地块大小不灵活，我正在寻找另一种可能性。
这是一个最小的工作示例(改编自上面链接的 lawyeR 问题):

DF <- data.frame(x = rnorm(400))
title_example <- "This is a very long title describing the plot in its details. The title should be fitted to a graph, which is itself not restricted by its size."
plot <- ggplot(DF, aes(x = x)) + geom_histogram() +
  ggtitle(title_example)

您可以在这里找到图片: /image/6MMKF.jpg
你知道如何例如适应 sep = 运算符(operator)自动断行还是可能有包/解决方法？谢谢!

Answer 1

ggtext包的文本元素可以帮助解决这个问题。 element_textbox_simple()自动将文本包裹在里面。尝试调整图形设备窗口的大小，它会适应!

library(ggplot2)
library(ggtext)

DF <- data.frame(x = rnorm(400))
title_example <- "This is a very long title describing the plot in its details. The title should be fitted to a graph, which is itself not restricted by its size."

ggplot(DF, aes(x = x)) + geom_histogram() +
  ggtitle(title_example) +
  theme(plot.title = element_textbox_simple())
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.