ggplot：将标题扩展到绘图边缘之外答案

【问题标题】：ggplot: extend title beyond plot marginggplot：将标题扩展到绘图边缘之外
【发布时间】：2017-03-21 17:01:33
【问题描述】：

我有一个带有长标签和长标题的情节。我正在使用coord_flip()，因此由于标签的原因，绘图边距之外有很多空间。默认情况下，标题被限制在绘图边缘。

如何让标题超出绘图边距（向左），以便它可以跨越整个宽度？这是一个例子：

ggplot(diamonds, aes(x = cut)) + 
  geom_bar() + 
  coord_flip() + 
  scale_x_discrete("Cut", 
                   labels = c("Fair" = "Fair and a very long extra thing",
                              "Good" = "Good  and a very long extra thing",
                              "Very Good" = "VG  and a very long extra thing", 
                              "Premium" = "P and a very long extra thing. A very long label, just because", 
                              "Ideal" = "I and a very long extra thing")) + 
  ggtitle("This is my very long title.  Long long title. Very long.  The Longest. We have the best long titles.")

【问题讨论】：

也许this 或this 会有所帮助？
@joran 谢谢，我不是在包装标签之后（在我的实际情节中，它们不是任何可用的垂直空间）。我只是想让标题跨越整个宽度。
那么可能是theme(plot.title = element_text(hjust = 0.95))？
@joran Jesus。我只是花了 30 分钟搞乱边距和谷歌搜索无济于事。现在我觉得自己很愚蠢。感谢您的帮助！
或者，grid.arrange(ggplot(), top = "Title goes here") 将其放置在整个视口上，而不仅仅是在面板上。

标签： r ggplot2

【解决方案1】：

不妨试试这个：

+ theme(plot.title = element_text(hjust = 0.95))

移动标题。

【讨论】：

我遇到了后续问题。当我有一个多行标题时， hjust 在每一行上的作用都不同。我似乎找不到不同的理由与参考点设置。（尝试在 ggtitle 中添加一个 \n 并使用 hjust = -.5）