是否可以添加自定义形状(来自png)到ggplot图例？

Question

我想知道是否有可能在ggimage()的图例中添加形状。我发现了类似的问题，但它们要么有1)相同的图片，但在图例中有不同的颜色，或者2)相同的图片有不同的颜色。我使用this link向图例中添加了带有颜色的图像，但我不知道如何编辑它以使图像有所不同。我尝试过this，但我还不够先进，无法调整代码以适应我的情况

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)

​

​

Answer 1

通过使用ggdraw解决：p2 os ggplot()对象，其中我在行中绘制图像(坐标x=2，y= c(1,2) )并添加文本(坐标x=2.5，y=c(1，2))

ggdraw() +
  draw_plot(p1) +
  draw_plot(p2, x = 0.55, y = 0.6)

然后我只是调整了p2的位置，并在p2中添加了xlim和ylim，以便将文本和图像放在一起