如何在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)))