class5.R

par(mar=c(1,1,1,1))
col_gray <- rep(1, 50)
names(col_gray) <- unique(gsub('[0-50]+', 
                                '', 
                                colors()[grep(colors(), pattern="gray")]))
pie(col_gray, 
    col=names(col_gray), 
    radius=.8, cex=.65, clockwise=T)

t(t(palette()))

##      [,1]     
## [1,] "black"  
## [2,] "red"    
## [3,] "green3" 
## [4,] "blue"   
## [5,] "cyan"   
## [6,] "magenta"
## [7,] "yellow" 
## [8,] "gray"