\begin{Schunk}
\begin{Sinput}
 box(which="plot", col="red",lty=2)
 legend("topleft", legend=paste("The Plot Region:", "axes would lie on this edge"), lty=c(2),col=c("red"), bty="n")
\end{Sinput}
\end{Schunk}
