Можно ли добавить пользовательские фигуры (из 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)

Answer 1

Решено с помощью ggdraw: p2 или объекта 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, а также добавил xlim и ylim к p2, чтобы сделать текст и изображение вместе