Добавить дополнительный текст НИЖЕ легенды (R + ggplot)

Question

Предположим, у нас есть этот простой сюжет:

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

Можно ли добавить текст ниже пунктов легенды? Я знаю, как добавить заголовок (выше) легенды. Но позвольте сказать, что мне нужна другая общая информация, написанная ниже.

Было бы очень приятно найти решение этого вопроса.

Спасибо! Martin

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)