# 
# Written by:
# -- 
# John L. Weatherwax                2009-04-21
# 
# email: wax@alum.mit.edu
# 
# Please send comments and especially bug reports to the
# above email address.
# 
#-----

library(DAAG)

par(mfrow=c(1,2))

plot( survey1889 ~ census1886, data=cottonworkers )
with( cottonworkers,
     text( survey1889 ~ census1886, labels=abbreviate( row.names(cottonworkers), minlength=6 ), pos=2 ) )

plot( I(avwage*survey1889) ~ I(avwage*census1886), data=cottonworkers )
with( cottonworkers,
     text( I(avwage*survey1889) ~ I(avwage*census1886), labels=abbreviate( row.names(cottonworkers), minlength=6 ), pos=2 ) )

par(mfrow=c(1,1))