Transfor一個GIF到一個R的grob用在一個ggplot annotation_custom

Question

我試圖導入一個GIF並把它變成一個Grob使用它與函數annotation_custom在一個ggplot，到目前爲止我已經導入它，並已能夠把它變成一個圖像。

到目前爲止，這是我：

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，但由於圖像返回類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))