Skip to content
Prev 323924 / 398503 Next

Log scales

Thanks a million Uwe.
I used the following from a forum to do it and it worked out:

mylevels <-c(-150,-100,-50,-20,-10,-5,-2,-1,1,2,5,10,20,50,100,150)
cols <- jet.colors(length(mylevels) - 1)
customAxis <- function() {
   n <- length(mylevels)
   y <- seq(min(mylevels), max(mylevels), length.out=n)
   rect(0, y[1:(n-1)], 1, y[2:n], col=cols)
   axis(4, at=y, labels=mylevels)
}


Many thanks,
Emily
Uwe Ligges wrote:
*********************************************************************************
This e-mail and any files transmitted with it are confid...{{dropped:9}}