使用 grid.raster 在列表中的每个 ggplot 对象上叠加图像的方法？

Question

我有一个 ggplot 对象列表，我想将徽标放在相同的相对位置上，而无需为轴不同时指定新的 x、y 坐标。

grid::grid.raster() 的应用正是我希望它执行的方式，但我不知道如何将它应用于我列表中的对象，而不是我打开的图形设备。

annotate_custom() & annotate_raster()（据我所知）需要我根据每个地块的数据设置定位，这是不理想的。

library(magick)
library(ggplot2)
library(grid)
library(purrr)

stock_image <- image_read_svg('http://jeroen.github.io/images/tiger.svg', width = 400)
print(stock_image)

#make a ggplot object for example
any_ggplot <- qplot(mtcars$hp, mtcars$mpg)

#make a list of them
plot_list <- rep(list(any_ggplot), 4)

#the goal is to put that image on all of them, and save the new plots in a list.

# I can do it once with grid.raster,
# And this is the preferred method because the scaling and position is consistent 
# even if the axes change
grid::grid.raster(stock_image, x = 0.5, y = 0.5, just = c('left', 'bottom'), width = unit(1.5, 'inches'))


# But I can't do it to the list
new_plot_list <- purrr::map(plot_list, function(x) {

  x
  grid::grid.raster(stock_image, x = 0.5, y = 0.5, just = c('left', 'bottom'), width = unit(1.5, 'inches'))


})

#Help?

理想情况下，每个地块现在都会覆盖该图像。但是，目前发生的情况是图像覆盖在开放图上并且没有返回列表。

我想我需要为每个图形设备隔离，但我不确定，也可能不会。

Answer 1

这是一个可能的解决方案：

library(ggplot2)
library(purrr)
library(cowplot)
library(gridExtra)
library(magick)

stock_image <- image_read_svg('http://jeroen.github.io/images/tiger.svg', width = 400)

# Make 4 ggplot objects for example
any_ggplot1 <- qplot(mtcars$hp, mtcars$mpg)
any_ggplot2 <- qplot(mtcars$drat, mtcars$mpg)
any_ggplot3 <- qplot(mtcars$wt, mtcars$cyl)
any_ggplot4 <- qplot(mtcars$disp, mtcars$cyl)

# Make a list of them
plot_list <- list(any_ggplot1, any_ggplot2, any_ggplot3, any_ggplot4)

new_plot_list <- purrr::map(plot_list, function(x) {
    ggdraw() +
      draw_image(stock_image, x = 0.25, y = 0.25, scale=0.25) +
      draw_plot(x)
})

grid.arrange(grobs=new_plot_list)

Answer 2

利用this post

img <- rasterGrob(stock_image, interpolate=TRUE, x = .5, y = .5, just = c('left', 'bottom'), width = unit(1.5, 'inches'))

any_ggplot +
  annotation_custom(img, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf)


new_plot_list <- purrr::map(plot_list, function(x) {
  x +
    annotation_custom(img, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf)
})

使用 grid.raster 在列表中的每个 ggplot 对象上叠加图像的方法？

Way to overlay an image on each ggplot object in a list using grid.raster?

r

raster

ggplot2

purrr