Based on @GuangchuangYu's script, I created the make_sticker function to make it easier to re-use and adapt. It's rough around the edges but a decent start. Suggestions and patches welcome.

library("ggplot2")
p <- ggplot(aes(x = mpg, y = wt), data = mtcars) + geom_point()
x <- make_sticker(p, "Bioconductor",
grob_xmin = 0.5, grob_xmax = 1.5,
grob_ymin = .35, grob_ymax = 1.25)

Based on @GuangchuangYu's script, I created the
make_stickerfunction to make it easier to re-use and adapt. It's rough around the edges but a decent start. Suggestions and patches welcome.