如何解决ggtitle 中的自动换行
作为一个闪亮的应用程序的一部分,我使用不同的绘图和标题的输入变量。 不幸的是,其中一些变量值太长而无法显示。
我通过提前手动插入 \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)
您可以在此处找到图片:https://i.stack.imgur.com/6MMKF.jpg
你有什么想法吗?调整 sep =
运算符以自动换行,或者是否有包/解决方法?谢谢!
解决方法
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`.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。