library(readr)
library(dplyr)
library(ggplot2)

library(magick)
svg_topo <- image_read_svg("topo_colours.svg", width=600, height=600)
svg_topo_pl <- image_ggplot(svg_topo)


lay <- read_csv("topo_colours.csv") |>
  mutate(hex = rgb(r, g, b))