This works for me:
x <- y <- seq(-4*pi, 4*pi, len=27)
r <- sqrt(outer(x^2, y^2, "+"))
library(lattice)
levelplot(r, colorkey=list(col=gray((0:32)/32)),
col.regions=(col=gray((0:32)/32)))
'r' is a matrix for you?
On 01/03/2008, David Winsemius <[EMAIL PROTECTED]> wrote:
> "Henrique Dallazuanna" <[EMAIL PROTECTED]> wrote in
> news:[EMAIL PROTECTED]:
>
> library(lattice)
> levelplot(r, colorkey=list(col=gray((0:32)/32)),
> col.regions=(col=gray((0:32)/32)))
>
> When I try that example, I get an error, even after updating lattice.
>
> > levelplot(r, colorkey=list(col=gray((0:32)/32)),
> + col.regions=(col=gray((0:32)/32)))
> Error in UseMethod("levelplot") : no applicable method for "levelplot"
>
> If I simply change colorkey=FALSE to colorkey=TRUE in the first levelplot
> help page example, I have what looks to me as "success".
>
> levelplot(z~x*y, grid, cuts = 50, scales=list(log="e"), xlab="",
> ylab="", main="Weird Function", sub="with log scales",
> colorkey = TRUE,
> region = TRUE)
>
> --
> David Winsemius
>
> >
> > On 29/02/2008, Megh Dal <[EMAIL PROTECTED]> wrote:
> >> Hi Jim, i think you could not get my point. I did not want to put
> >> red-blue color there. I want to put a pallet which will describe
> >> the values of r. please have a look on following :
> > http://bp0.blogger.com/_k3l6qPzizGs/RvDVglPknRI/AAAAAAAAAKo/itlWOvuuO
> > tI/s1600-h/pairwise_kl_window60.png. Please see how a color pallate
> > is added on the right side of this plot describing the value of red
> > color, value of blue color etc.
> >>
> >> Is there any solution?
> >>
> >> Regards,
> >>
> >>
> >> jim holtman <[EMAIL PROTECTED]> wrote:
> >> Try something like this:
> >>
> >> require(grDevices) # for colours
> >> x <- y <- seq(-4*pi, 4*pi, len=27)
> >> r <- sqrt(outer(x^2, y^2, "+"))
> >> image(x, y, r, col=gray((0:32)/32))
> >> colors <- colorRampPalette(c('red', 'yellow', 'blue')) # create
> >> you color spectrum
> >> image(x,y,r, col=colors(100))
> >>
> >>
> >>
> >> On Thu, Feb 28, 2008 at 9:28 PM, Megh Dal wrote:
> >> > I used ?image function to do that, like below :
> >> >
> >> > require(grDevices) # for colours
> >> > x <- y <- seq(-4*pi, 4*pi, len=27)
> >> > r <- sqrt(outer(x^2, y^2, "+"))
> >> > image(x, y, r, col=gray((0:32)/32))
> >> >
> >> > However my next problem to add a color pallet for color
> >> > description [as shown in following link]. If anyone here tell
> >>>> me how to do that, it will be good for me.
> >> >
> >>
> >> > Megh Dal wrote: Hi all,
> >>
> >> >
> >> > Can anyone here please tell me whether is it possible to produce
> >> > a chart displayed in http://www.datawolf.blogspot.com/ in R for
> > visualizing multivariate time series? If possible how?
> >> >
> >> >
>
> ______________________________________________
> 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.
>
--
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O
______________________________________________
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.
