R magick：无需矢量化即可合成图像

Question

magick R 包中对image_composite函数的描述如下：

image_composite 函数对两个图像参数进行矢量化：如果第一个图像有 n 帧，第二个图像有 m 帧，则输出图像将包含 n * m 帧。

这是一个丑陋的例子：

banana <- image_read("https://jeroen.github.io/images/banana.gif")
image_composite(banana, banana, offset = "+70+00", operator = "Add")

有没有办法避免矢量化，让香蕉一起跳舞？ 或者，是否有另一个功能（也来自其他包）允许这样做？

Answer 1

在相同图像的情况下，您可以修改每一帧，将矢量化由内而外，有点像。

image_apply(
  banana, FUN = function(img) {
    image_composite(img, img, offset = "+70+00", operator = "Add")
  }
)

如果您有两张帧数相同的图像，那么仅使用magick中公开的函数会更难。 一种更简单的方法是将 magick-image 对象分成列表，并使用像purrr::map2这样的函数式编程工具，然后再重新加入它们：

purrr::map2(
  as.list(banana), as.list(image_negate(banana)),
  ~image_composite(.x, .y, operator = "Add", offset = "+70+00")
  ) %>% 
  image_join()