lattice log-scaled plot

library(lattice)
g <- expand.grid(x = 1:10, y = 5:15)
g$z <- log((g$x + g$y^2))
wireframe(z ~ x + y, data = g,
          scales = list(arrows = FALSE, x = list(log = 10)),
          drape = TRUE, colorkey = TRUE,
          screen = list(z = 30, x = -60))
windows()
wireframe(z ~ log10(x) + y, data = g,
          scales = list(arrows = FALSE),
          drape = TRUE, colorkey = TRUE,
          screen = list(z = 30, x = -60))