setwd("D:\\dropbox\\edps589")
sat <- read.table("sat_2_cal.txt",header=T)

head(sat)
plot(sat$exp_pp,sat$ave_tot, 
     type='n',
	 xlab="Expendature per Pupil",
	 ylab="Average SAT total",
	 main="How to put in text point labels")
text(sat$exp_pp,sat$ave_tot,sat$state)	 

mod1 <- lm(ave_tot ~ exp_pp, data=sat)

lines(sat$exp_pp,mod1$fitted)

-------------------------------------------------------
ods graphics on / imagefmt=jpeg height=6in width=6in;

title "How to put text labels on point";
proc sgplot data=sat aspect=.6;
 scatter y=ave_tot x=exp_pp / datalabel=state;
run;

title "How to put text labels on point";
proc sgplot data=sat aspect=.6;
 scatter y=ave_tot x=ave_pt / datalabel=state;
run;