将 Gif 转换为 R 中的 grob，以便在 ggplot 中与 annotation_custom 一起使用

Question

我正在尝试导入 gif 并将其转换为 grob，以便在 ggplot 中将其与函数 annotation_custom 一起使用，到目前为止，我已导入它并能够将其转换为图像。

到目前为止，这是我所拥有的：

library(caTools)
require(ggplot2)
require(grid)
require(gridExtra)
y <- read.gif("http://blog.helpingadvisors.com/wp-content/uploads/2011/01/basketballcourt.gif")

我得到了一个列表，到目前为止我已经能够绘制它了：

image(y$image, col=y$col, main=y$comment, asp=1)

但我已经尝试将其转换为 grob:

a <- rasterGrob(image(y$image, col=y$col, main=y$comment, asp=1))

或尝试

raster(image(y$image, col=y$col, main=y$comment, asp=1))

然后将其保存为 grob，但是由于图像 returns class NULL 它不起作用。

我也尝试过使用 y 的矩阵，但它的颜色真的很奇怪：

plot(raster(y$image))

而且我真的需要原始颜色

Answer 1

mat = y$col[y$image+1]
dim(mat) = dim(y$image)
qplot(1,1) + annotation_custom(rasterGrob(mat))

将 Gif 转换为 R 中的 grob，以便在 ggplot 中与 annotation_custom 一起使用

Transfor a Gif to a grob in R to use with annotation_custom in a ggplot

r

gif

ggplot2

grob