color vectors other than gray()

Hi

r-help-bounces at r-project.org napsal dne 27.03.2009 15:36:23:
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).
If I understand correctly

pal<-grey(0:max(quad_N_sp$x)/max(quad_N_sp$x))
shall give you vector of equally spaced grey values

pal[quad_N_sp$x+1]
shall give you shadings for each quad_N_sp$x value

Regards
Petr
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

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide 
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

color vectors other than gray()

Thread (10 messages)