data("men1500m", package = "HSAUR3")
op <- par(las = 2)
plot(time ~ year, data = men1500m, axes = FALSE)
yrs <- seq(from = 1896, to = 2004, by = 4)
axis(1, at = yrs, labels = yrs)
axis(2)
box()
par(op)
Run the code above in your browser using DataLab