ggplot2

grab the last plot ggplot2

last_plot()

Make the plot square

last_plot() + opts(aspect.ratio=1)

Set the X & Y coordinates to equal ranges

last_plot() + coord_equal()