Add Borders Around Entire ggplot2 Plot in R

Question

I want to draw a border around an entire ggplot2 plot, such as the box("figure") function would do in case of a Base R plot.

Have a look at the following ex