r - カスタムシェイプ(pngから)をggplot凡例に追加することは可能ですか?

Question

の凡例に図形を追加できるかどうか疑問に思っていましたggimage()。同様の質問を見つけましたが、1) 凡例の色が異なる同じ画像、または 2) 同じ画像の異なる色のいずれかです。このリンクを使用して、色付きの凡例に画像を追加しましたが、画像が異なるように編集する方法がわかりません。私はこれを試しましたが、自分のケースに合わせてコードを調整するのに十分ではありません

d <- data.frame(x = rnorm(10),
                y = rnorm(10),
                image = sample(c("https://www.r-project.org/logo/Rlogo.png",
                                 "https://jeroenooms.github.io/images/frink.png"),
                               size=10, replace = TRUE)
)

ggplot(d, aes(x, y)) + geom_image(aes(image=image, color=image), size=.05)