wangyuchen — Dec 13, 2013, 10:35 AM
# simulate data x <- runif(100, 0.05, 4) y <- exp(-x) # suppress x axis and add a custom one plot(x, y, xlim=c(0, 1.95), xaxt='n') axis(side=1, at=c(0, 0.5, 1, 1.5, 2))
