docs: ggimage

[davidhodge931]

library(tidyverse)
library(ggimage)
library(ggblanket)

set_blanket()

# https://bioart.niaid.nih.gov/bioart/464

set.seed(3)

data.frame(x = rnorm(10),
                 y = rnorm(10),
                 image = 'SARSCoV20002.svg') |> 
  gg_line(
    x = x, 
    y = y, 
    colour = "#ff483a",
    ) +
  geom_image(aes(image = image), size = 0.2)

[davidhodge931]

library(tidyverse)
library(ggimage)
library(ggblanket)

set_blanket()

tibble(
  letters = c("A", "B", "C"),
  numbers = 1:3,
  image = 'SARSCoV20002.svg',
) |> 
  gg_line(
    x = letters,
    y = numbers,
    group = 1,
    colour = grey,
  ) +
  geom_image(
    aes(image = image),
    size = 0.2,
  )

tibble(
  letters = c("A", "B", "C"),
  numbers = 1:3,
  image = 'SARSCoV20002.svg',
) |> 
  gg_col(
    x = letters,
    y = numbers,
    width = 0.75,
    group = 1,
    colour = grey,
  ) +
  geom_image(
    aes(y = numbers - 0.25, image = image),
    size = 0.2,
  )