Создание анимации в R

Question

Я рассматриваю возможности создания анимации в Р. Пакет {Animation}, по-видимому, является в основном платформой R для ffmpeg и imagemagick. Единственная ссылка, которую я нашел для создания отдельных кадров изображения, - это вставка plot() внутри цикла. Но это кажется невыполнимо медленный процесс для получения более сложных участков с учетом низкой производительности скорость png() визуализатора, особенно для участков, включая объекты карты - например:

library(maptools) 
data(wrld_simpl)  
starttime = Sys.time() 
for(i in 1:10){ 
    png(paste('frames/', i, '.png', sep='')) 
    plot(wrld_simpl, col='grey85', bg = 'white', border='white') 
    points(sample(-180:180, 50), sample(-90:90, 50), col='red', pch=16, cex=2) 
    title('poxy map') 
    dev.off() 
} 
print(Sys.time() - starttime) 

получают 10 кадров и:

Time difference of 9.763794 secs 

Я не понимаю, почему R так медленно при рендеринге - при такой скорости потребуется 45 минут или около того, чтобы сделать 2-минутное видео со скоростью 25 кадров в секунду, что кажется медленным для этого относительно простого примера карты. Обертка с apply не быстрее. Кто-нибудь знает способ обернуть plot более эффективно или, возможно, сохранить сюжет на полпути после того, как будут отображены неизменные элементы?

Answer 1

Нанесение карты в виде изображения с достаточным разрешением должно быть более эффективным, чем метод графика для SpatialPolygonsDataFrame.

require(maps) # save the world 
png("world.png", width=500, height=200) 
map("world", col="grey90", fill=TRUE, border="grey90", mar=c(0,0,0,0)) 
dev.off() 

library(png); library(grid) 
img = readPNG("world.png") 

animation::saveGIF({ 
    for(ii in 1:100) { 
    grid.newpage() 
    grid.raster(img) 
    grid.points(default.units="npc") 
    } 
    }, ani.height=200, ani.width=500)