Add additional text below the legend (R + ggplot)

Question

Assume we have this simple plot:

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

enter image description here

Is it possible to add a text below the legend items? I know how to add a title (above) the legend. But lets say I want some other general information written below.

Would be very pleased to find a solution to that.

Thanks! Martin

@hrbrmstr I think this is a duplicate but not of what you posted. It's related but that's about a table. I think this is the dupe: http://stackoverflow.com/a/10346760/1000343 — Tyler Rinker, Nov 28 '14 at 01:42

score 6 · Accepted Answer · answered Nov 28 '14 at 01:17

6

This is one possible approach:

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)

enter image description here

answered Nov 28 '14 at 01:17

Tyler Rinker

108,132
65
322
519

I figured this has been covered before so I searched. Here's a pretty related post with a ton more info: http://stackoverflow.com/a/10346760/1000343 – Tyler Rinker Nov 28 '14 at 01:19
on running this code I do not see any text at the bottom ?? – d.putto Sep 10 '15 at 16:09

Add additional text below the legend (R + ggplot)

1 Answers1