使用ggplot2绘图底部的绘图标题

Question

在ggplot2中，如何将绘图标题置于绘图底部。

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

放标题中，情节的顶部，而我希望它是在中部和情节的底部。

Answer 1

下面是一个解决方案使用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

有了可以使用的标题参数的开发版本，

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

另外，包裹在grid.arrange情节（），

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