Как комментировать ggplot2 qplot за пределами легенды и участка? (аналогично mtext())

Я хотел бы аннотировать мои сюжеты с именем файла. С plot() я использовал mtext:

plot(1:10)
mtext("File xy-12-34-56.csv", 4)

Как я могу сделать это с помощью ggplot2 и qplot или ggplot? Он не должен сталкиваться с легендой. Я нашел команды annotate и grid, но я не смог получить с ними аннотацию, похожую на mtext.

В качестве обходного пути я мог бы попробовать watermarks, но, возможно, у вас есть хороший намек для меня. С наилучшими пожеланиями, Джонас

Ответ 1

Обновление

Похоже, что для достижения результата мы должны использовать следующее:

library(ggplot2)
library(grid)
library(gridExtra)
p <- qplot(data = mtcars, wt, mpg)
grid.arrange(p, right = textGrob("File xy-12-34-56.csv", rot = -90, vjust = 1))

Старый ответ

Попробуйте следующее:

library(gridExtra)
p <- qplot(data = mtcars, wt, mpg)
print(arrangeGrob(p, legend = textGrob("File xy-12-34-56.csv", rot = -90, vjust = 1)))

enter image description here