I have two follow-up questions: 1. If I want to reverse the heat.colors (i.e., from yellow to red instead of red to yellow), is there a way to do that?
2. I also created this interactive 3d scatter plot as below: library(rgl) plot3d(x=x, y=y, z=z, col=nbcol[zcol], box=FALSE) Is there any way to add the same legend to this 3d plot? I'm new to R and try to learn it. I'm very grateful for any help! thanks, Z On Thu, Mar 14, 2013 at 9:56 AM, Zhuoting Wu <zhuotin...@gmail.com> wrote: > Marc, > > Thank you so much! It works! I really appreciate your help! > > best, > Z > > > On Wed, Mar 13, 2013 at 8:39 PM, Marc Girondot <marc_...@yahoo.fr> wrote: > >> Hi, >> >> Try this. >> Sincelery, >> >> Marc >> >> x <- rnorm(128, 10, 2) >> y <- rnorm(128, 10, 2) >> >> z <- x+y >> >> nbcol <- heat.colors(128) >> >> # standardize z to be from 1 to 128 >> zcol <- ((z-min(z))/(max(z)-min(z)))*127+1 >> >> library(scatterplot3d) >> library(fields) >> >> scatterplot3d(x,y,z, pch=16,color=nbcol[zcol], grid=FALSE, box=FALSE, >> mar=c(5, 3, 5, 7)+0.1) >> >> par(mar=c(5, 4, 4, 2) + 0.1) >> >> image.plot( legend.only=TRUE, zlim= c(min(z), max(z)), nlevel=128, >> col=heat.colors(128)) >> >> >> >> >> Le 13/03/13 17:36, Zhuoting Wu a écrit : >> >> Thanks Marc! I tried the colorbar.plot and image.plot. >> >> The colorbar.plot gives color bars within the plot, but I want a color >> bar legend on the side of the plot. >> >> The image.plot gives a legend that overlaps the plot, and the scale >> doesn't match the 3d scatterplot at all (see attached). >> >> Here's my R script: >> >> cols <- myColorRamp(c(topo.colors(10)),z) >> scatterplot3d(x,y,z, pch=16,color=cols, grid=FALSE, box=FALSE) >> zr<- range(c(z)) >> image.plot(legend.only=TRUE,col=cols, zlim=zr) >> >> I wanted to have a color ramp legend based on z on the side of the plot. >> >> I'll greatly appreciate any help! >> >> thanks, >> Z >> >> On Wed, Mar 13, 2013 at 2:11 AM, Marc Girondot <marc_...@yahoo.fr> wrote: >> >>> Le 12/03/13 23:43, Zhuoting Wu a écrit : >>> > I have a 3 column dataset x,y,z, and I plotted a 3d scatter plot >>> using: >>> > >>> > cols <- myColorRamp(c(topo.colors(10)),z) >>> > plot3d(x=x, y=y, z=z, col=cols) >>> > >>> > I wanted to add a legend to the 3d plot showing the color ramp. Any >>> help >>> > will be greatly appreciated! >>> > >>> > >>> Look at the package fields: >>> ?colorbar.plot >>> >>> Marc >>> >>> -- >>> __________________________________________________________ >>> Marc Girondot, Pr >>> >>> Laboratoire Ecologie, Systématique et Evolution >>> Equipe de Conservation des Populations et des Communautés >>> CNRS, AgroParisTech et Université Paris-Sud 11 , UMR 8079 >>> Bâtiment 362 >>> 91405 Orsay Cedex, France >>> >>> Tel: 33 1 (0)1.69.15.72.30 Fax: 33 1 (0)1.69.15.73.53 >>> e-mail: marc.giron...@u-psud.fr >>> Web: http://www.ese.u-psud.fr/epc/conservation/Marc.html >>> Skype: girondot >>> >>> >>> [[alternative HTML version deleted]] >>> >>> >>> ______________________________________________ >>> R-help@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. >>> >>> >> >> >> -- >> __________________________________________________________ >> Marc Girondot, Pr >> >> Laboratoire Ecologie, Systématique et Evolution >> Equipe de Conservation des Populations et des Communautés >> CNRS, AgroParisTech et Université Paris-Sud 11 , UMR 8079 >> Bâtiment 362 >> 91405 Orsay Cedex, France >> >> Tel: 33 1 (0)1.69.15.72.30 Fax: 33 1 (0)1.69.15.73.53 >> e-mail: marc.giron...@u-psud.fr >> Web: http://www.ese.u-psud.fr/epc/conservation/Marc.html >> Skype: girondot >> >> > [[alternative HTML version deleted]]
______________________________________________ R-help@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.
