r - 如何在legend和plotarea之外注释ggplot2 qplot？ (类似于 mtext())

Question

我想用文件名注释我的图。与 plot()我用过 mtext :

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

我怎样才能用 ggplot2 和 qplot 或 ggplot 做到这一点？它不应该与图例冲突。
我找到了命令 annotate和 grid ，但我无法获得类似于 mtext 的注释用这些。

作为一种解决方法，我可以尝试 watermarks ，但也许你对我有很好的暗示。
亲切的问候，乔纳斯

Answer 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)))