data(COAL)
Bp <- barplot(COAL)
axis(side=1,
labels=seq(
from=1850,
to=1960,
by=10),
at=Bp[rep(c(TRUE,
rep(FALSE, 9)),
10)])
rm(Bp)
Run the code above in your browser using DataLab