How To Add Figure Legends In R