[R] color vectors other than gray()

[Paulo E. Cardoso]

I'm certainly missing something.

In fact the ramp I need must be scaled according to a vector of values (in
this case species abundance in each grid cell), as in the example vector
below:

> length(quad_N_sp$x) # where x is the abundance value
[1] 433

quad_N_sp$x
[1] 0 0 0 0 0 0 5 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 3
2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
[101] 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
[201] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
[301] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 1 0 2 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
[401] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

I need to discriminate shading level accordingly to the abundance value
(level).

I don't know how to proceed.

____________
Paulo E. Cardoso

-----Mensagem original-----
De: baptiste auguie [mailto:ba208 at exeter.ac.uk] 
Enviada: sexta-feira, 27 de Março de 2009 13:30
Para: Paulo E. Cardoso
Cc: r-help at stat.math.ethz.ch; r-help at r-project.org
Assunto: Re: [R] color vectors other than gray()

?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
______________________________

No virus found in this incoming message.
Checked by AVG - www.avg.com 

03/27/09
07:13:00