向 ggplot 图形添加文件名或其他注释

我使用 ggplot 来制作大部分图形。这些可以是单面板，也可以是多面的。为了更容易跟踪修订，我想在绘图的角落生成一个包含一些文本的小标签。

在伪代码中，我正在寻找这样的东西：

# generate the initial plot
p <- ggplot()
# add the label
p + someAnnotationFunction(label = "Version 1.0", x = 1, y = 0, 
                           hjust = "right", vjust = "bottom" )
# print
print(p) 

或者：绘制位于图形右下角的标签，而不会弄乱现有的 ggplot 图形。

到目前为止，我还没有找到解决方案。This https://stackoverflow.com/questions/18906439/add-annotation-box-to-grid-of-ggplot-objects（非常有趣）如果您有完整的方法，则该方法不起作用m x n面表。使用方法gridExtra往往会过多地扰乱情节。那么，有没有人有办法在使用 ggplot 生成的绘图上的任意位置添加任意文本？

这是一个有效的解决方案，使用gridExtra()，基于巴蒂斯特的评论：

require("ggplot2")
require("gridExtra")

# set our working directory 
working.dir <- '/Users/aclifton/Documents/projects/Rcode' 
setwd(working.dir)

# create a data frame
df <- data.frame(x =runif(100, 1, 10),
                 y = runif(100, 1, 10))
#create a plot
p <- ggplot(data = df,
            aes(x = x,
                y = y)) +
  geom_point()

print(p)        

我们现在有了我们的绘图，技巧是添加该标签并使用保存整个绘图ggsave():

# label to show
sub.label = textGrob("Some kind of label", 
               gp=gpar(fontsize=6),
               x = unit(1, "npc"),
               hjust = 1,
               vjust = 0)

ggsave(filename=file.path(working.dir,'DemoPlot.png'),
       plot = arrangeGrob(p,
                          sub = sub.label,
                          clip = FALSE),
       scale = 1,
       width = 6.5,
       height = 3.5, 
       units = c("in"),
       dpi = 300)

Which gives you this: