plot_lay.R 242 B

1234567891011
  1. library(readr)
  2. library(dplyr)
  3. library(ggplot2)
  4. library(magick)
  5. svg_topo <- image_read_svg("topo_colours.svg", width=600, height=600)
  6. svg_topo_pl <- image_ggplot(svg_topo)
  7. lay <- read_csv("topo_colours.csv") |>
  8. mutate(hex = rgb(r, g, b))