Метки изображения в анимации уровня графика R - PullRequest
Новая
       21

Метки изображения в анимации уровня графика R

0 голосов
/ 14 ноября 2018

Используя пример из вопроса здесь , Как можно использовать years в качестве заголовка для каждого изображения?

Пример : 

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,main=noquote(paste("",i)))
  plot(l)
 }
}, interval=0.2, movie.name="animation.gif")

Строка main=noquote(paste("",i)) помечает каждое изображение в анимации как 1,2,3, etc...Тем не менее, я хотел бы использовать 1919, 1920, 1921, etc.. вместо этого.Нужен ли другой for loop для генерации 1919, 1920, 1921, etc..?

Следующие элементы не работают: 

main=paste(1919,i)
main=paste(1919:1923,i)

В моем фактическом растровом кирпиче 100 слоев

Любые предложения по использованию года в качестве заголовка для каждого изображенияв анимации?

1 Ответ

0 голосов
/ 15 ноября 2018

Это сработало для меня после нескольких мыслей: 

main=paste(" ", 1918+i, sep='')

Если мои данные начинаются с 1919, к каждому изображению будут добавлены последовательные годы с шагом 1.

...