How can I make the legend in ggplot2 the same height as my plot? How can I make the legend in ggplot2 the same height as my plot? r r