ggplot2 footnote

Question

Cách tốt nhất để thêm chú thích cuối vào một ô được tạo bằng ggplot2 là gì? Tôi đã cố gắng sử dụng một sự kết hợp của logic lưu ý ở đây http://www.r-bloggers.com/r-good-practice-%E2%80%93-adding-footnotes-to-graphics/ cũng như chú thích ggplot2 chức năng

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))) 

nhưng tôi nhận được lỗi "Lỗi trong as.data.frame.default (x [[i]] , optional = TRUE, stringsAsFactors = stringsAsFactors): không thể ép buộc lớp c ("unit.arithmetic", "unit") vào một data.frame ".

Answer 1

Tôi sẽ sử dụng một cái gì đó như thế:

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

Sử dụng các phòng thí nghiệm() để thêm một chú thích trực tiếp đến cốt truyện.

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