[R] color vectors other than gray()

[Romain Francois]

See ?colorRampPalette and ?colorRamp

colorRampPalette( c("blue", "white", "red") )(100)
colorRamp( c("blue", "white", "red") )( 0:10 / 10 )

Romain

Paulo E. Cardoso wrote:
> I'm trying to create a graph where different cells of a grid (a shapefile)
> will be painted with a color share scale, where the most easy way is to use
> gray().
>
> Can I somehow get a vector (gradient) of colors, a vector of colors with
> other methods but gray()?
>
> I'm doing this until now
>
>  
>
>   quad_N_sp <-
> merge(sp_dist[sp_dist$sp==splist[i],],grelha_ID,by.x="quad",by.y="quadricula
> ",all.y=T,)  
>
>   quad_N_sp$x[is.na(quad_N_sp$x)] <- 0
>
>   quad_N_sp <- quad_N_sp[order(quad_N_sp$id),]
>
>   paleta <- gray(1-(quad_N_sp$x)/max(quad_N_sp$x)) #! Tons de cinzento
>
>   win.graph(4,5)
>
>   plot(grelha,ol="grey80", #! Gráfico com grelha de amostragem e gradiente
> de abundância
>
>   fg=paleta,
>
>   cex.lab=0.7,
>
>   cex.axis=0.7,
>
>   cex.main=0.7,
>
>   xlab="Coord X",
>
>   ylab="Coord Y",
>
>   main=paste("Espécie: ",splist[i]),
>
>   xlim=c(210000,240000)
>
>   )
>
>   col_lab <- c(max(quad_N_sp$x),min(quad_N_sp$x)) #! Vector com os limites
> min e max do N de indivíduos observados
>
>  
> color.legend(248000,120000,250000,128000,col_lab,sort(unique(paleta)),gradie
> nt="y",cex=0.6)#! Legenda
>
>   text(245300,130500,"Nº Indivíduos",cex=0.6)
>
>   plot(blocos,ol="grey40",fg=NA,add=T)
>
>  
>
> I'd like to replace the grey shade by other colors.
>
>  
>
> Thanks in advance
>
> ____________
>
> Paulo E. Cardoso
>
>  


-- 
Romain Francois
Independent R Consultant
+33(0) 6 28 91 30 30
http://romainfrancois.blog.free.fr