\begin{Schunk}
\begin{Sinput}
 plot(salary~age , data=mydf, type="n", bty="n", axes=F, xlab="", ylab="")
 axis(1); mtext("Age (years)", side = 1, line = 3)
 axis(2); mtext("Hourly Wage (US)", side = 2, line = 3)
 box()
 with(mydf, points(age, salary, pch=1, cex=1))
\end{Sinput}
\end{Schunk}
