gfor를 g의 grob에 전송하여 ggplot의 annotation_custom과 함께 사용

Question

gif를 가져 와서 ggplot의 annotation_custom 함수와 함께 사용하기 위해 grob로 바꾸려고합니다. 지금까지 가져 왔고 계속되었습니다. 그것을 이미지로 변환 할 수 있습니다.

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))