Decrease Legend Size Ggplot Shapes In R