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