How to move or position a legend in ggplot2 How to move or position a legend in ggplot2 r r