[R-br] eixo log contour plot

[eder em leg.ufpr.br]

Pessoal, to me batendo aqui,
Como pode ser feito para deixar apenas o eixo y em escala logaritima (base
10), e que os valores  das variáveis continuem aparecendo no grafico.

## Exemplo
x <- seq(pi/4, 5 * pi, length.out = 100)
y <- seq(pi/4, 5 * pi, length.out = 100)
r <- as.vector(sqrt(outer(x^2, y^2, "+")))
grid <- expand.grid(x=x, y=y)
grid$z <- cos(r^2) * exp(-r/(pi^3))
contourplot(z~x*y,
grid,col.regions=colorRampPalette(c("green","yellow","red")),region =TRUE)
att