如何在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与这些.

作为一种解决方法,我可以尝试水印,但也许你对我有一个很好的暗示.亲切的问候,乔纳斯

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