Конвертировать несколько PNG в GIF как анимацию в R

Question

У меня есть несколько файлов png в каталоге, и я хочу преобразовать их в gif (анимированный) файл через R. Не могли бы вы посоветовать, как это сделать?

Answer 1

Решение с пакетом gifski:

library(gifski)
png_files <- list.files("path/to/your/pngs/", pattern = ".*png$", full.names = TRUE)
gifski(png_files, gif_file = "animation.gif", width = 800, height = 600, delay = 1)

Преимущество gifski состоит в том, что количество цветов в GIF не ограничено 256.

Answer 2

Вот некоторый фиктивный код, который вы можете использовать:

Сначала используйте пакет magick для GIF Используйте пакет magrittr или пакет dplyr для %>%

library(magick)
library(magrittr)

Затем перечислите файлы в каталоге и объедините в gif кадров в секунду - кадров в секунду

list.files(path='/$PATH/', pattern = '*.png', full.names = TRUE) %>% 
        image_read() %>% # reads each path file
        image_join() %>% # joins image
        image_animate(fps=4) %>% # animates, can opt for number of loops
        image_write("FileName.gif") # write to current dir