\begin{Schunk}
\begin{Sinput}
 dat <- data.frame(x = c(1, 2, 3, 4.5, 5, 7, 9), y = c(3, 2, 3, 6, 5, 8, 4))
 plot(y~x, data=dat, cex=1.5, main="", xlab="x", ylab="y", ylim=c(0,10))
 text(dat$x, dat$y, labels=1:7, pos=3)
\end{Sinput}
\end{Schunk}
