Palheta de Cores

<?xml version="1.0" encoding="ISO-8859-1"?>
<Rscript>
<titulo>Palheta de Cores</titulo>
<descricao>
Cria gráficos com várias palhetas de cor.
Demonstra a fexibilidade do R na geração de gráficos.
</descricao>
<autor>Oswaldo</autor>
<email></email>
<versao>1.0</versao>
<parametro></parametro>
<parametro2></parametro2>
<colsel></colsel>
<colsel2></colsel2>
<script>
palheta <- function(cores) {
    
     n <- length(cores)
       
     nt <- 1
     i <- 1:n; j <- n / nt; d <- j/6; dy <- 2*d
     plot(i,i+d, type="n", yaxt="n", ylab="", xlab="",sub=paste("Palheta de cores  n=",n))
     for (k in 1:nt) {
       rect(i-.5,(k-1)*j+ dy, i+.4,  k*j, col=cores)
      
     }
}

grafico.tabwin()
PALHETA <- c(colors()[2:145],colors()[363:657]) # Palheta de cores sem branco e cinzas
CORES <- c("#000080", "#0000FF", "#006400", "#008B8B", "#00FF7F", 
		"#00FFFF", "#1E90FF", "#20B2AA", "#228B22", "#43CD80", "#5F9EA0", 
		"#6495ED", "#6A5ACD", "#6E8B3D", "#7B68EE", "#7FFF00", "#8A2BE2", 
		"#8B8B00", "#9932CC", "#A52A2A", "#A9A9A9", "#B8860B", "#C0FF3E", 
		"#CD5555", "#CD6839", "#CD8162", "#D2691E", "#DC143C", "#DEB887", 
		"#E9967A", "#FF1493", "#FF7F50", "#FF8C00", "#FFFF00")
palheta(CORES)
title ("Minha Palheta")

palheta(PALHETA[1:24])
title("Palheta de cores sem branco e cinzas cores 1 a 24")
palheta(PALHETA[25:50])
title("Palheta de cores sem branco e cinzas cores 25 a 50")
palheta(PALHETA[51:75])
title("Palheta de cores sem branco e cinzas cores 51 a 75")
palheta(PALHETA[76:100])
title("Palheta de cores sem branco e cinzas cores 25 a 100")
palheta(sample(colors(),32))
title("Cores Aleatorias")
</script>
<exemplo>

</exemplo>
</Rscript>