是否可以选择为嵌套在 ggdraw 中的图像添加黑色边框？

Question

library(cowplot)
ggdraw() +
    draw_plot(p) +
  draw_image(magick::image_read("img.png"),
             scale = .25, x = .4, y = .1)

这里p根本不重要，我只想给img.png加个黑边。

Answer 1

library(cowplot)
library(magick)

tiger <- image_read_svg('http://jeroen.github.io/images/tiger.svg', width = 350)

ggdraw() +
  draw_image(
    tiger,
    scale = .5, x = -0.25, y = 0.25
  ) +
  draw_image(
    tiger |> magick::image_border(color = 'black'),
    scale = .5, x = 0.25, y = 0.25
  ) +
  draw_image(
    tiger |> magick::image_border(color = 'firebrick'),
    scale = .5, x = -0.25, y = -0.25
  ) +
  draw_image(
    tiger |> magick::image_border(color = 'navy'),
    scale = .5, x = 0.25, y = -0.25
  )

是否可以选择为嵌套在 ggdraw 中的图像添加黑色边框？

Is there an option to ad a black border to a image nested in a ggdraw?

r

ggplot2

cowplot