Overview fishualize palettes

In fishualize: Color Palettes Based on Fish Species

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

knitr::opts_chunk$set(echo = TRUE)

img <- function(obj, nam) {
  image(1:length(obj), 1, as.matrix(1:length(obj)), col=obj, 
        main = nam, ylab = "",xlab = " ", xaxt = "n", yaxt = "n",  bty = "n")
}

library(fishualize)
c <- sort(unique(fishualize::fishcolors$option))
invisible(lapply(1:length(c), function(i){
  sp <- c[i]
   img(fishualize::fish(5, option = sp), sp)
  return(" ")
}))

fishualize documentation built on March 18, 2022, 7:25 p.m.