# NOT RUN {
library(ggplot2)
library(tibble)
library(magick)
data <- tibble(
xmin = c(1, 2.5), ymin = c(1, 1), xmax = c(2, 4), ymax = c(4, 3),
image = list(
"https://jeroen.github.io/images/Rlogo.png",
image_read_svg("https://jeroen.github.io/images/tiger.svg")
)
)
ggplot(data, aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax, image = image)) +
geom_textured_rect(img_width = unit(1, "in"))
# }
Run the code above in your browser using DataLab