在图例下方添加附加文本（R + ggplot）[重复]

Question

假设我们有这个简单的情节：

ggplot(data = msleep, aes(x = log(bodywt), y = sleep_total)) + 
    geom_point(aes(color = vore)) + 
    theme(legend.position="bottom")

是否可以在图例项下方添加文本？我知道如何在图例上添加标题（上方）。但是假设我想要一些其他的一般信息写在下面。

很高兴找到解决方案。

谢谢！ 马丁

Answer 1

这是一种可能的方法：

library(gridExtra)
library(grid)

p <- ggplot(data = msleep, aes(x = log(bodywt), y = sleep_total)) + 
    geom_point(aes(color = vore)) + 
    theme(legend.position="bottom", plot.margin = unit(c(1,1,3,1),"lines")) + 
    annotation_custom(grob = textGrob("Extra text.  Read all about it"),  
        xmin = 2, xmax = 2, ymin = -4.5, ymax = -4.55)


gt <- ggplot_gtable(ggplot_build(p))
gt$layout$clip[gt$layout$name=="panel"] <- "off"
grid.draw(gt)