Displaying 1 result from an estimated 1 matches for "lab0".
Did you mean:
lab
2005 Aug 29
0
negative superscripts in axis labels
...")
X11Fonts(helvetica=helvetica)
symbol <- X11Font("-*-symbol-%s-%s-*-*-%d-*-*-*-*-*-*-*")
X11Fonts(symbol=symbol)
X11(width=864, height=432,
~ fonts=c(X11Font(helvetica), X11Font(symbol)))
x <- seq(0,1,.0001)
y <- sin(x)
tics <- c(10^-5,10^-4,10^-3,10^-2,10^-1,10^-0)
lab0 <- expression(10^-0)
lab1 <- expression(10^-1)
lab2 <- expression(10^-2)
lab3 <- expression(10^-3)
lab4 <- expression(10^-4)
lab5 <- expression(10^-5)
plot(x,y,log="y",axes=FALSE)
axis(1)
axis(2,at=tics,labels=c(lab5,lab4,lab3,lab2,lab1,lab0))
- -------------------------...