You can do this in ggplot2 using coord_trans
library(scales)
library(ggplot2)
x <- seq(.01, 1, .01)
y <- seq(.01, 1, .01)
data <- data.frame(x, y)
qplot(x, y, data = data) + coord_trans(y = "exp")
