> x<-runif(50,0,2) > y<-runif(50,0,2) > plot(x,y,main="散点图",xlab="横坐标",ylab="纵坐标") > text(0.6,0.6,"text at (0.6,0.6)") > abline(h=.6,v=.6) >