x<-rnorm(10)
y<-rnorm(10)
plot(x,y,type="p")
nums<-c("one","two","three","four","five","six","seven","eight","nine","ten")
boxed.labels(x,y-0.1,nums)
readline("Press <Enter> to continue")
# now label a barplot
xpos<-barplot(c(1,3,2,4))
boxed.labels(xpos,0.5,nums[1:4])
Run the code above in your browser using DataLab