Posiziona una casella grigia attorno al titolo del grafico in ggplot2

Question

quando utilizziamo l'opzione facet in ggplot, otteniamo una bella scatola grigia intorno alle intestazioni (3,4,5).

library(ggplot2) 

data(mtcars) 

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

Come possiamo mettere una casella grigia simile intorno al titolo del grafico quando facciamo nessun uso l'opzione facet?

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

Answer 1

Dal momento che si sta chiedendo come farlo senza sfaccettature, questo è strettamente parlando non è una risposta, ma solo per farlo notare, in un modo rapido e sporco sarebbe quello di "barare" e di utilizzare una sfaccettatura dopo tutti. Ad esempio,

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

fa il trucco.