Color Selection in R

par(mfrow=c(2,3))
barplot(seq(1:12), col=rainbow(12))
barplot(seq(1:12), col=terrain.colors(12))
barplot(seq(1:12), col=cm.colors(12))
barplot(seq(1:12), col=heat.colors(12))
barplot(seq(1:12), col=topo.colors(12))

par(mfrow=c(2,2))
par(mar=c(1.5,1.5,1.5,1.5))
pie(rep(1, 7), col = rainbow(7), radius = 1)
pie(rep(1, 14), col = rainbow(14), radius = 1)
pie(rep(1, 28), col = rainbow(28), radius = 1)
pie(rep(1, 56), col = rainbow(56), radius = 1)

pie(rep(1, 14), col = heat.colors(14),
    radius = 0.9,main="heat.colors")
pie(rep(1, 14), col = terrain.colors(14),
    radius = 0.9,main="terrain.colors")
pie(rep(1, 14), col = topo.colors(14),
    radius = 0.9,main="topo.colors")
pie(rep(1, 14), col = cm.colors(14),
    radius = 0.9,main="cm.colors")
par(mfrow=c(1,1))

custom<-c(rgb(0.6,0.8,1),rgb(1,0.8,0.2),rgb(1,0.8,0.4),
          rgb(1,0.8,0.6),rgb(1,0.8,0.8),rgb(1,0.8,1),
          rgb(0.8,0.8,1),rgb(0.7,0.8,1))
pie(rep(1/8,8),col=custom)

par(mfrow=c(3,3))
par(mar=c(1,1,1,1))
mypalette <- brewer.pal(8,"Reds")
pie(rep(1,8), col = mypalette, radius = 0.9,main="Reds")
mypalette <- brewer.pal(8,"Blues")
pie(rep(1,8), col = mypalette, radius = 0.9,main="Blues")
mypalette <- brewer.pal(8,"Greens")
pie(rep(1,8), col = mypalette, radius = 0.9,main="Greens")
mypalette <- brewer.pal(8,"BrBG")
pie(rep(1,8), col = mypalette, radius = 0.9,main="BrBG")
mypalette <- brewer.pal(8,"PiYG")
pie(rep(1,8), col = mypalette, radius = 0.9,main="PiYG")
mypalette <- brewer.pal(8,"Spectral")
pie(rep(1,8), col = mypalette, radius = 0.9,main="Spectral")
mypalette <- brewer.pal(8,"Accent")
pie(rep(1,8), col = mypalette, radius = 0.9,main="Accent")
mypalette <- brewer.pal(8,"Pastel1")
pie(rep(1,8), col = mypalette, radius = 0.9,main="Pastel1")
mypalette <- brewer.pal(8,"Set2")
pie(rep(1,8), col = mypalette, radius = 0.9,main="Set2")
par(mfrow=c(1,1))

display.brewer.all(colorblindFriendly = TRUE)