Decrease Legend Size Ggplot2 In R Codes