# NOT RUN {
tg <- textGrob("label",
x=unit(1, "npc") - unit(2, "mm"),
y=unit(1, "npc") - unit(2, "mm"),
just=c("right", "top"))
ggplot(mtcars) +
geom_point(aes(disp, mpg)) +
grid_panel(tg)
# }
Run the code above in your browser using DataLab