R magick：在没有矢量化的情况下合成图像

Posted 2023-03-25

【中文标题】R magick：在没有矢量化的情况下合成图像

【英文标题】：R magick: compose images without vectorization

【发布时间】：2020-03-26 01:05:36

【问题描述】：

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")

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

【参考方案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()