r - magick 패키지로 이미지의 배경을 제거하는 방법은 무엇입니까?

magick 로 이미지의 배경을 제거 할 수 있습니까  패키지?

Gimp/Inkscape와 함께 가장자리 감지 기능을 사용하여 실루엣을 자르는 방법을 알고 있습니다. 그러나 R 를 사용하여 대량의 이미지 일괄 처리 프로세스를 자동화하려고합니다. .

내 궁극적 인 목표는 ggimage 를 사용하는 것입니다  이 이미지를 x,y 로 플롯하는 패키지  좌표이지만이 이미지의 배경은 현재 플롯과 겹칩니다 (개가 핀치와 비교됨)

library("ggplot2")
library("ggimage")
set.seed(2017-02-21)
d <- data.frame(x = rnorm(10),
                y = rnorm(10),
                image = sample(c("http://www.supercoloring.com/sites/default/files/silhouettes/2015/05/cairn-terrier-black-silhouette.svg", "https://jeroenooms.github.io/images/frink.png"),
                               size=10, replace = TRUE)
                )
ggplot(d, aes(x, y)) + geom_image(aes(image=image))

image magick의 image_trim() 를 사용하여 이미지의 가장자리를 다듬을 수 있습니다

img <- image_read_svg("http://www.supercoloring.com/sites/default/files/silhouettes/2015/05/cairn-terrier-black-silhouette.svg")
image_trim(img)

그러나 이것은 내가 원하는 것이 아닙니다.

어떤 아이디어?