# NOT RUN {
library(ggplot2)
library(fishualize)
dat <- data.frame(x = rnorm(1e4), y = rnorm(1e4))
ggplot(dat, aes(x = x, y = y)) +
stat_density_2d(geom = "raster",
aes(fill = after_stat(density)), contour = FALSE) +
scale_fill_gradientn(colors = fish(128, option = 'Ostracion_cubicus'))
pal <- fish(256, option = "Thalassoma_hardwicke", direction = -1)
image(volcano, col = pal)
# }
Run the code above in your browser using DataLab