How to change legends place with Plots, gr()?

A wonderful example! Thank you so much!