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

Question

我使用 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 图形。

到目前为止，我没有任何运气找到解决方案。如果您有完整的m x n 分面表，This（非常有趣）方法将不起作用。使用gridExtra 的方法往往会过多地混淆绘图。那么，有没有人可以在使用 ggplot 生成的图的任意位置添加任意文本？

Answer 1

根据 Baptiste 的评论，这是一个使用 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)

这给了你这个：

Answer 2

通过制作注释的数据框，您可以使用 geom_text 将它们添加到绘图顶部。

note <- data.frame(xVarName = c(1, 5), yVarName = c(1, 10), 
    text = c("Version 1.0", "April 26, 2014")

 p + geom_text(data = anno, aes(label = text))

“1.0 版”将显示在左下角，“2014 年 4 月 26 日”将显示在右上角。

通过在单独的数据框中制作笔记，您可以根据需要将多个笔记添加到一个图表中。