1 Load packages 2 You’re my favorite 3 Reproducibility 1 Load packages library(tidyverse) # data wrangling library(spiro) library(viridisLite) 2 You’re my favorite k <- 36 files <- paste0("s", 1:k, ".svg") pen_radii <- seq(3.8, 1.5, length.out = k) alphas <- rep_len(c(0.85, rep(0.2, 4)), k) colors <- rep_len(viridis(6, alpha = alphas, begin = 0, end = 1, direction = 1, option = "D"), k) #colors <- rep_len(scico(6, palette = "devon"), k) %>% # …