r - 在 ggplot2 中插入图像作为构面

Question

我正在使用 ggplot2在函数中生成分面图(即分面数量不同)。对于我制作的每个图，我想在最后的自由面中插入一个图像(例如导入的 jpg )(即 ggplot2 必须以预见的方式计算 facet_wrap 设计存在一个额外的方面，但此方面之后将填充一个非 ggplot2 图像)。这是一个多面图的 MWE，在这种情况下，我想插入一个图像作为第四个方面:

p <- ggplot(mtcars, aes(wt, mpg))
p + geom_point() + facet_wrap(~cyl, ncol = 2)

在此先感谢您的所有建议!

Answer 1

library(ggplot2)
library(png)

img <- readPNG(system.file("img", "Rlogo.png", package="png"))

p <- ggplot(mtcars, aes(wt, mpg)) + geom_point() + 
  facet_wrap(~cyl, ncol = 2)

g <- ggplotGrob(p)
library(gtable)
g <- gtable_add_grob(g, rasterGrob(img), nrow(g)-4, ncol(g)-2)
grid.newpage()
grid.draw(g)