library("scales")
palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["regular"]]
for (palname in names(palettes)) {
pal <- tableau_color_pal(palname)
max_n <- attr(pal, "max_n")
show_col(pal(max_n))
title(main = palname)
}
Run the code above in your browser using DataLab