アニメーション（）をRラスターでレベルプロットの系列で使用する

Question

私は25年毎のランドカバーラスターの時系列を持っています。これはカテゴリデータなので、私はlevelplot(inputRaster)（rasterVisライブラリの一部）を使って1つのラスタをプロットします。しかし、私はを順番にをプロットしたいと思います。ラスターライブラリーのanimateの機能と同じです。私は

rasStack <- stack(listOfRasters) animate(rasStack)

を使用すると、結果は、カテゴリの伝説を持っていません。 要するに、levelplotとanimateの機能をどのように組み合わせることができますか？

Answer 1

ファンクションanimateは入力としてラスターオブジェクトのみを受け入れます。あなたはlevelplotsをアニメーション化するsaveGIFを試すことができます。

library(raster) 
library(rasterVis) 
library(animation) 
library(classInt) 

r <- raster(ncol=40, nrow=20) 
r[] <- rnorm(n=ncell(r)) 
s <- stack(x=c(r, r*r, r*r*r, r*r*r*r)) 

classes <- classIntervals(values(r), n=5, style="fisher", precision = 3) 
brks <- classes$brks 
brks <- round(brks, 2) 

saveGIF({ 
    for(i in c(1:nlayers(s))){ 
    l <- levelplot(s[[i]], colorkey=list(at=brks, labels=c(as.character(brks))), margin=FALSE) 
    plot(l) 
    } 
}, interval=0.2, movie.name="animation.gif")