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]]
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
?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
Hi, Have a look at: ?rainbow ?rgb ?heatmap In my opinion this would've likely popped up with just a little effort of searching. In fact, the help of grey() (?grey) already gives pointers to the other color functions. Please show that you at least have tried to find answers before posting questions on a user list. Tsjerk On Fri, Mar 27, 2009 at 2:16 PM, Paulo E. Cardoso <pecardoso at netcabo.pt> 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]] > > > ______________________________________________ > 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. > >-- Tsjerk A. Wassenaar, Ph.D. Junior UD (post-doc) Biomolecular NMR, Bijvoet Center Utrecht University Padualaan 8 3584 CH Utrecht The Netherlands P: +31-30-2539931 F: +31-30-2537623