r - ggplot2 是否有一种简单的方法来包装注释文本？

Question

我目前正在使用 ggplot2和 annotate 函数，文档中的示例如下。我的宽度有限，无法注释未知长度的文本，需要一种自动方式将其包裹在一些 x_start 中和 x_end值。由于我不想更改字体大小，因此我还需要移动 y值取决于引入的中断次数。有没有简单的方法来实现这一点？

# install.packages(c("ggplot2"), dependencies = TRUE)
require(ggplot2)
p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point()
p + annotate("text", x = 4, y = 25, label = "Some arbitrarily larger text")

Answer 1

也许是 splitTextGrob函数来自 RGraphics包可以提供帮助。这将根据绘图窗口的宽度包装文本。

library(RGraphics)
library(ggplot2)


p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point()

grob1 <-  splitTextGrob("Some arbitrarily larger text")

p + annotation_custom(grob = grob1,  xmin = 3, xmax = 4, ymin = 25, ymax = 25)