[R] color vectors other than gray()

[baptiste auguie]

?colorRamp

Hope this helps,

baptiste

On 27 Mar 2009, at 13:16, 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
>
>
>
>
> 	[[alternative HTML version deleted]]
>
> <ATT00001.txt>

_____________________________

Baptiste Auguié

School of Physics
University of Exeter
Stocker Road,
Exeter, Devon,
EX4 4QL, UK

Phone: +44 1392 264187

http://newton.ex.ac.uk/research/emag