Tracciare il titolo nella parte inferiore del grafico utilizzando ggplot2

Question

In ggplot2, come inserire il titolo del grafico nella parte inferiore del grafico.

qplot(rnorm(100)) + ggtitle("My Title") 

mette il titolo in middle e top della trama, mentre io voglio che sia a metà e fondo della trama.

Answer 1

Ecco una soluzione utilizzando grid.text:

library("grid") 
qplot(rnorm(100)) + theme(plot.margin=unit(c(0.5, 1, 2, 0.5), "lines")) 
grid.text("My Title", x = unit(0.5, "npc"), y = unit(0, "npc"), 
      vjust = -0.5, gp = gpar(cex=1.2)) 

Answer 2

Con la versione dev è possibile utilizzare l'argomento didascalia,

ggplot() + 
    labs(caption="Bottom Title") + 
    theme(plot.caption = element_text(hjust=0.5, size=rel(1.2))) 

In alternativa, avvolgere la trama in grid.arrange(),

gridExtra::grid.arrange(ggplot(), bottom="Bottom Title")