# Default colors ggplot2
library(scales)

gg_color_hue <- function(n) {
  hues = seq(15, 375, length = n + 1)
  hcl(h = hues, l = 65, c = 100)[1:n]
}

n = 4
cols = gg_color_hue(n)

plot(1:n, pch = 16, cex = 2, col = cols)

show_col(hue_pal()(2))

show_col(hue_pal()(4))

show_col(hue_pal()(20))

# Brewer palettes
library(RColorBrewer)
display.brewer.all()

# Sanzo Wada palettes
library(sanzo)

sanzo.demo.all()

# Color palette finder
library(paletteer)