如何在 geom_boxplot 上显示长标题？

发布于 2025-01-10 15:57:38 字数 763 浏览 5 评论 0原文

我有一个很长的标题，我想将其包含在 ggplot geom_boxplot 的底部。

目前，代码将一行写入标题，但缺少许多预期的标题。我如何将文字包裹在标题中？

我的代码是

p = ggplot(mpg, aes(class, hwy)) + geom_boxplot() +
  labs(title="An example title", caption = "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.")

我尝试了一些东西，但一无所获，例如 ggplot 主题中的plot.caption。有人可以帮忙吗？

谢谢。菲尔，

原文

I have a long caption that I would like to include at the bottom of a ggplot geom_boxplot.

Currently the code writes a single line to the caption with lots of the intended caption missing. How might I wrap the text in the caption?

My code is

p = ggplot(mpg, aes(class, hwy)) + geom_boxplot() +
  labs(title="An example title", caption = "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.")

I have experimented with a few things but have got nowhere e.g. plot.caption in the theme of the ggplot.
Could anyone help?

Thank you.
Phil,

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

久光 2025-01-17 15:57:38

手动将 \n 添加到您想要将文本换行的位置（此解决方案中未使用此方法）。但是，由于你的标题很长，很难猜测 \n 放在哪里最好，而且不容易对齐结果文本，因此我推荐第二种方法：
使用函数，例如stringr::str_wrap()。

library(ggplot2)
library(stringr)

ggplot(mpg, aes(class, hwy)) +
  geom_boxplot() +
  labs(
    title = "An example title",
    caption = str_wrap("Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.",
      width = 80
    )
  )

Manually add \n to the place where you would like to break the text to a new line (this method is not used in this solution). However, since your caption is quite long, it's hard to guess where is the best to put the \n, and not easy to align the resulting text, therefore I recommend the second method:
Use a function, such as stringr::str_wrap().

library(ggplot2)
library(stringr)

ggplot(mpg, aes(class, hwy)) +
  geom_boxplot() +
  labs(
    title = "An example title",
    caption = str_wrap("Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.",
      width = 80
    )
  )

回复收藏 0 原文

嗫嚅 2025-01-17 15:57:38

str_wrap 的另一个选项和替代方案是 ggtext::element_textbox。 ggtext::element_textbox 的一个好处是您不必设置线宽，而是指定教科书的宽度，例如在下面的示例代码中我使用 unit(.8 , "npc") 以便标题文本框的长度为绘图宽度的 80%。

library(ggplot2)
library(ggtext)

library(ggplot2)
library(ggtext)

ggplot(mpg, aes(class, hwy)) +
  geom_boxplot() +
  theme(
    plot.caption =
      ggtext::element_textbox(
        width = unit(.8, "npc"),
        hjust = 1, vjust = 1,
        halign = 1
      )
  ) +
  labs(
    title = "An example title",
    caption = "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."
  )

Another option and alternative to str_wrap would be ggtext::element_textbox. A benefit of ggtext::element_textbox is that you don't have to set the linewidth, instead you specify the width of the textbook, e.g. in my example code below I use unit(.8, "npc") so that the caption textbox will have a length of 80 percent of the plot width.

library(ggplot2)
library(ggtext)

library(ggplot2)
library(ggtext)

ggplot(mpg, aes(class, hwy)) +
  geom_boxplot() +
  theme(
    plot.caption =
      ggtext::element_textbox(
        width = unit(.8, "npc"),
        hjust = 1, vjust = 1,
        halign = 1
      )
  ) +
  labs(
    title = "An example title",
    caption = "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."
  )

回复收藏 0 原文

~没有更多了~