使用光栅包和谷歌地图图像生成gif的问题

Question

我想使用imagemagick convert从光栅图像生成一个gif。

我使用google地图作为背景，所以我需要调用plot（）两次，这会在生成的gif中产生闪烁，因为在每个循环中插入了一个空白图像。如何消除此空白图像并生成平滑的gif？

以下是一个例子：

require(raster)
require(dismo)

bk<-gmap(c(" DR Congo"))
png(file="Rplot%03d.png", width=500, height=500)
for(i in 1:4){
    rnd <-matrix(rnorm(100*100),100,100)
    s_rnd<-raster(rnd)
    extent(s_rnd)<-extent(bk)/i
    crs(s_rnd) <- crs(bk)
    plot(bk, legend=FALSE, axes=FALSE, box=FALSE)   
    plot(s_rnd, legend=FALSE, axes=FALSE, box=FALSE,add=TRUE)   
}
dev.off()
system(paste0("convert -delay 40 Rplot*.png ","Test.gif" ))
file.remove(list.files(pattern="^Rplot.*\\.png$"))