Create randomcolor.R

chansigit · Mar 31, 2021 · 59e7e15 · 59e7e15
1 parent eebc921
commit 59e7e15
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/randomcolor.R b/randomcolor.R
@@ -0,0 +1,6 @@
+library(RColorBrewer)
+n <- 35
+qual_col_pals = brewer.pal.info[brewer.pal.info$category == 'qual',] # one of 'div', 'qual', 'seq'
+col_vector = unlist(mapply(brewer.pal, qual_col_pals$maxcolors, rownames(qual_col_pals)))
+col_vector=sample(col_vector)
+pie(rep(1,n), col=sample(col_vector, n))