r - 向 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 图形的情况下，在图形的右下角绘制我的标签。

到目前为止，我还没有找到解决方案。 This (非常有趣)如果您有一个完整的 m x n 分面表，该方法将不起作用。使用 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)

这给了你这个: