ggplot2脚注

Question

在使用ggplot2创建的绘图底部添加脚注的最佳方法是什么？我尝试使用标记为here的逻辑以及ggplot2 annotate函数的组合。

p + annotate("text",label="Footnote",
  x=unit(1,"npc") - unit(2, "mm"),y=unit(2, "mm"),
  just=c("right", "bottom"),gp=gpar(cex= 0.7, col=grey(.5)))

但我收到了错误

  

as.data.frame.default（x [[i]]，optional = TRUE，stringsAsFactors = stringsAsFactors）中的错误：无法将类c（“unit.arithmetic”，“unit”）强制转换为data.frame < / p>

Answer 1

我会使用类似的东西：

pdf("filename.pdf", width=10, height=6) # open an appropriate graphics device
print(p)
makeFootnote() # from webpage above (uses grid.text; ggplot2 is based on grid)
dev.off()

Answer 2

+ labs()添加了一个脚注：

ggplot(mtcars, aes(mpg, wt, colour = cyl)) + 
  geom_point() + 
  labs(caption = "(Pauloo, et al. 2017)")