\begin{Schunk}
\begin{Sinput}
> par(mar = c(5.1, 4.1, 4.1, 2.1), oma = c(2, 2, 2, 2))
> plot(c(-5, 5), y = c(-10, 20), type="n", xlab="X", ylab="Y")
> text(0 ,5, labels = "Plot Area", col = "red", cex = 3)
> box("plot", col="red")
> mtext("Figure", side = 1, line=3, adj=1.0, cex=3,   col="blue")
> Margins <- par("mar")
> Margins <- paste("mar = c(", paste0(Margins, collapse = ","), ")", sep="")
> mtext(Margins, side = 3, line = 2, adj = 0.0, cex = 1.5, col = "blue")
> box("figure",lty="dashed", col="blue")
> box("inner", lty="dotted", col="green")
> mtext("Outer Margin Area",
       side = 1, line=0.4, adj=1.0, cex=1.5, col="green", outer=TRUE)
> box("outer", lty="solid", col="green")
> OuterMargins <- par("oma")
> OuterMargins <-
         paste("oma = c(", paste(OuterMargins, collapse=","), ")", sep="")
> mtext(OuterMargins,
          side = 3, line=0.4, adj=0.0, cex=1.5, col="green", outer=TRUE)
\end{Sinput}
\end{Schunk}
