在R的情节区域外添加脚注引用？

Question

我想在我在R中制作的3面小平面网格图中添加一个脚注引用.这是一个信用数据源的脚注.理想情况下,我希望它位于所有三个轴的下方和外部 - 最好是在左下方.

我使用的ggplot2也是ggsave().这意味着我不能使用grid.text()基于x11()-based 的解决方案,因为它只能在窗口上绘制,而不能添加到ggplot对象中.

使用相反png() ...code... dev.off()似乎不是一个选项,因为我需要ggsave调整参数大小,并找到这个命令产生更好,更清晰的打印(这也更快,因为我不打印到屏幕).

这是我的基本代码:

p1 <- ggplot(data, aes(date, value))
    facet_grid(variable ~ .) + geom_point(aes(y =value), size=1) + 
    theme_bw() +
        opts(title=mytitle)
print(p1)
ggsave("FILE.png",width=mywidth, height=myheight, p1, dpi=90)

我试过了:

p1 <- ggplot(data, aes(date, value))
    facet_grid(variable ~ .) + geom_point(aes(y =value), size=1) + 
    theme_bw() +
        opts(title=mytitle)
print(p1)
grid.text(unit(0.1,"npc"),0.025,label = "Data courtesy of Me")
grid.gedit("GRID.text", gp=gpar(fontsize=7))
ggsave("FILE.png",width=mywidth, height=myheight, p1, dpi=90)

这适当地将脚注放在x11()显示的左下角,在图的外部,但不幸的是,因为它没有应用于p1对象,所以它不会被ggsave命令保存.

我也尝试过:

p1 <- ggplot(data, aes(date, value))
    facet_grid(variable ~ .) + geom_point(aes(y =value), size=1) + 
    theme_bw() +
    opts(title=mytitle) +
annotate("text", label = "Footnote", x = 0, y = 10, size = 5, colour = "black") +
print(p1)
ggsave("FILE.png",width=mywidth, height=myheight, p1, dpi=90)

这使用ggsave成功打印,但它有以下问题:

• 它在3个方面中的每个方面重复3次,而不是1次.
• 它包含在图中,而不是在图外部.
• 文本很难放置---似乎是使用绘图单位(我的x轴是日期,因此0将其置于1970年左右).
• 尽管我的尺寸参数,文字大小似乎没有改变.

当我探索这个时,有几个相关的链接......

• ggplot2脚注

  (不适用于ggsave)

• 如何用另一个测试结果中的标签标记ggplot中的条形图？

  (在图中,不在外部/下图)

• ggplot2中标签文本条目中的不同字体和大小

  (不适用于ggsave)

• 使用ggplot2在R中保存pdf文件的问题

Answer 1

ggplot2现在具有此功能,无需额外的包. ... + labs(caption = "footnote", ...)

library(ggplot2) 
ggplot(diamonds, aes(carat, price, color = clarity)) + 
  geom_point() + 
  labs(title = "Diamonds are forever...", 
       subtitle = "Carat weight by Price", 
       caption = "H. Wickham. ggplot2: Elegant Graphics for Data Analysis Springer-Verlag New York, 2009.")

Answer 2

library(gridExtra)
library(grid)
library(ggplot2)

g <- grid.arrange(qplot(1:10, 1:10, colour=1:10) + labs(caption="ggplot2 caption"), 
              bottom = textGrob("grid caption", x = 1, 
                                hjust = 1, gp = gpar(fontface = 3L, fontsize = 9)))
ggsave("plot.pdf", g)

编辑:请注意,此解决方案与添加到ggplot2的最近标题参数有些互补,因为textGrob在这里可以与整个图形对齐,而不仅仅是绘图面板.

Answer 3

在布兰登·贝特尔森（Brandon Bertelsen）的答案中添加：如果您想在左角添加标题，请添加

theme(plot.caption = element_text(hjust = 0))