r - 在 ggplot2 中的图表标题周围放置一个灰色框

Question

当我们在 ggplot 中使用 facet 选项时，我们会在标题 (3,4,5) 周围得到一个漂亮的灰色框。

library(ggplot2)

data(mtcars)

ggplot(mtcars, aes(cyl)) + geom_bar() + facet_wrap(~gear) + theme_bw()

当我们不使用 facet 选项时，我们如何在图表标题周围放置一个类似的灰色框？

ggplot(mtcars, aes(cyl)) + geom_bar() + theme_bw() +
  ggtitle("How do you put a grey box around me??")

Answer 1

由于您问的是如何在没有分面的情况下进行操作，因此严格来说这不是一个答案，而只是指出这一点，一种快速而肮脏的方法是“作弊”并毕竟使用分面。例如，

mtcars$title <- "How do you put a grey box around me??"
ggplot(mtcars, aes(cyl)) + geom_bar() + theme_bw() +
  facet_grid(. ~ title)

诀窍。