https://stackoverflow.com/questions/9563711/r-color-palettes-for-many-data-classes
> c25 <- c(
+ "dodgerblue2", "#E31A1C", # red
+ "green4",
+ "#6A3D9A", # purple
+ "#FF7F00", # orange
+ "black", "gold1",
+ "skyblue2", "#FB9A99", # lt pink
+ "palegreen2",
+ "#CAB2D6", # lt purple
+ "#FDBF6F", # lt orange
+ "gray70", "khaki2",
+ "maroon", "orchid1", "deeppink1", "blue1", "steelblue4",
+ "darkturquoise", "green1", "yellow4", "yellow3",
+ "darkorange4", "brown"
+ )
> pie(rep(1, 25), col = c25)
> c16 <- c("dodgerblue2", "#E31A1C", "green4", "#6A3D9A", "#FF7F00", "black", "gold1", "skyblue2", "palegreen2",
+ "#FDBF6F", "gray70", "maroon", "orchid1", "darkturquoise", "darkorange4", "brown")
> pie(rep(1, 16), col = c16)
> manualcolors<-c('black','forestgreen', 'red2', 'orange', 'cornflowerblue',
+ 'magenta', 'darkolivegreen4', 'indianred1', 'tan4', 'darkblue',
+ 'mediumorchid1','firebrick4', 'yellowgreen', 'lightsalmon', 'tan3',
+ "tan1",'darkgray', 'wheat4', '#DDAD4B', 'chartreuse',
+ 'seagreen1', 'moccasin', 'mediumvioletred', 'seagreen','cadetblue1',
+ "darkolivegreen1" ,"tan2" , "tomato3" , "#7CE3D8","gainsboro")
> c30 <- manualcolors
> c30[14] <- manualcolors[21]
> c30[21] <- manualcolors[14]
> c30[10] <- manualcolors[16]
> c30[16] <- manualcolors[10]
> pie(rep(1, 30), col = c30)
> # install.packages("Polychrome")
> library(Polychrome)
> c27 <- glasbey.colors(27)
> pie(rep(1, 27), col = c27)