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

Question

我正在尝试导入一个gif并将其转换为grog，以便在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，但由于image返回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))