Очень запутался, как объединить два изображения, чтобы создать подарок

Question

Я посмотрел предыдущие посты. Особенно этот .Я вижу код, это

library(animation)
## make sure ImageMagick has been installed in your system
saveGIF({
  for (i in 1:10) plot(runif(10), ylim = 0:1)
})

Я установил ImageMagick (после большой путаницы).

Я запустил приведенный выше код, и ничего не происходит?У меня есть два изображения на моем компьютере, сохраненные в файле.Я хочу объединить их, чтобы создать короткий GIF.Как мне это сделать?Какая часть приведенного выше кода объединяет несколько изображений, которые сохранены на моем компьютере?Как мне сделать это, используя библиотеку анимации и imagemagick?

Я врезаюсь в стену здесь.Любая помощь будет оценена.

Answer 1

Вы можете сделать это, используя ImageMagick следующим образом:

install.packages("magick")
library(magick)

list.files(path = "<<path to your images>>", pattern = "*.png", full.names = T) %>% 
  image_read %>% # reads each image file
  image_join() %>% # joins image
  image_animate(fps=2) %>% # animates, can opt for number of loops
  image_write("merged_pngs.gif")

Надеюсь, это поможет.